ReBonjour Jean Charles
Je ne suis pas un expert en visual basic, mais j'essai de conprendre.
Voila mon code affecté au bouton Ok pour valider mes données :
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 la date du jour.'
Me.Txtdate.SetFocus
Exit Sub
End If
' On teste la saisie du premier échantillon N1
If Me.TxtN1.Text = '' Then
MsgBox 'Vous devez entrer le premier 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 le deuxième 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 le troisième 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 le quatrième 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 le cinquième enregistrement.'
Me.TxtN5.SetFocus
Exit Sub
End If
' Mise en place des données dans la feuille de calcul'
Sheets('EVCarteSPC').Range('B65536').End(xlUp).Offset(1, 0).Value = TxtEquipe
Sheets('EVCarteSPC').Range('C65536').End(xlUp).Offset(1, 0).Value = TxtHeure
Sheets('EVCarteSPC').Range('D65536').End(xlUp).Offset(1, 0).Value = Txtdate
Sheets('EVCarteSPC').Range('E65536').End(xlUp).Offset(1, 0).Value = TxtN1
Sheets('EVCarteSPC').Range('F65536').End(xlUp).Offset(1, 0).Value = TxtN2
Sheets('EVCarteSPC').Range('G65536').End(xlUp).Offset(1, 0).Value = TxtN3
Sheets('EVCarteSPC').Range('H65536').End(xlUp).Offset(1, 0).Value = TxtN4
Sheets('EVCarteSPC').Range('I65536').End(xlUp).Offset(1, 0).Value = TxtN5
' On décharge le formulaire
Unload Me
End Sub
Cordialement