Vba ( Userform + decalage vers la droite d'enregistrement)

Vba ( Userform + decalage vers la droite d'enregistrement) - VB/VBA/VBS - Programmation

Marsh Posté le 16-05-2006 à 08:36:34    

Bonjour à tous,
 
Je viens de créer une carte spc sur excel. Afin de pourvoir saisir mes données je viens de créer un formulaire. le probléme et que je n'arrive pas à decaler mes enregistrement d'une cellule pour chaque saisie effectuée.  
Une saisie correspond à 8 lignes.
 
Mon tableau comporte 25 colonnes de 8 Ligne  (B37:Z45)
Voici mon code VBA :
 
Private Sub cmdvalider_Click()
    ' On teste la saisie du nom de l'équipe
    If Me.TxtEquipe.Text = "" Then
        MsgBox "Vous devez entrer un nom d'équipe."
        Me.TxtEquipe.SetFocus
        Exit Sub
    End If
    ' On teste la saisie de l'heure
    If Me.TxtHeure.Text = "" Then
        MsgBox "Vous devez entrer l'heure de l'enregistrement."
        Me.TxtHeure.SetFocus
        Exit Sub
    End If
    ' On teste la saisie de la date
    If Me.Txtdate.Text = "" Then
        MsgBox "Vous devez entrer l'heure de l'enregistrement."
        Me.Txtdate.SetFocus
        Exit Sub
    End If
    ' On teste la saisie du premier échantillon N1
    If Me.TxtN1.Text = "" Then
        MsgBox "Vous devez entrer l'heure de l'enregistrement."
        Me.TxtN1.SetFocus
        Exit Sub
    End If
   
    ' On teste la saisie du deuxième échantillon N2
    If Me.TxtN2.Text = "" Then
        MsgBox "Vous devez entrer l'heure de l'enregistrement."
        Me.TxtN2.SetFocus
        Exit Sub
    End If
   
    ' On teste la saisie du troisième échantillon N3
    If Me.TxtN3.Text = "" Then
        MsgBox "Vous devez entrer l'heure de l'enregistrement."
        Me.TxtN3.SetFocus
        Exit Sub
    End If
    ' On teste la saisie du quatrième échantillon N4
    If Me.TxtN4.Text = "" Then
        MsgBox "Vous devez entrer l'heure de l'enregistrement."
        Me.TxtN4.SetFocus
        Exit Sub
    End If
        ' On teste la saisie du cinquième échantillon N5
    If Me.TxtN5.Text = "" Then
        MsgBox "Vous devez entrer l'heure de l'enregistrement."
        Me.TxtN5.SetFocus
        Exit Sub
    End If
    ' Mise en place des données dans la feuille de calcul'
     
    ' On décharge le formulaire
    Unload Me

 

End Sub :cry:  
 

Reply

Marsh Posté le 16-05-2006 à 08:36:34   

Reply

Marsh Posté le 16-05-2006 à 10:27:14    

salut,
je comprend pas très bien comment tu veux décaler mais voici un classeur qui devrait t'aider avec plusieurs exemples de décalage
 
http://disciplus.simplex.free.fr/c [...] ecaler.zip

Reply

Marsh Posté le 16-05-2006 à 11:03:08    

Salut Damien
 
Quand j'effectue une première saisie avec mon formulaire
je viens renseigne les cellules de B37 à B45
Quand je souhaite effectuer ma deuxième saisie avec mon formulaire
je souhaite renseigner les cellules C37 à C45
 
Merci d'avance

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed