Bonne année à tous.......jE voulais avoir vos précieux conseilles pour un code à rallonge qui fonctionne correctement chez moi mais j'en suis sur qu'il est long et que vous avez un code plus court. C'est à dire que je veux exiger le remplissage de toutes les textbox et si vide un message s'affiche sans que le formulaire redemarre ou efface toutes les données déjà remplies. Merci d'avance
Private Sub CommandButton2_Click()
With Sheets("Inscriptions")
Label68.ForeColor = RGB(0, 0, 0)
If ComboBox30.ListIndex = -1 Then
MsgBox "Vous devez donner un nom.", 16
Label68.ForeColor = RGB(255, 0, 0)
MsgBox "Veuillez saisir ce champs", 16
Label35.ForeColor = RGB(255, 0, 0)
End If
If TextBox3.Text = "" Then
MsgBox "Veuillez saisir ce champs", 16
Label38.ForeColor = RGB(255, 0, 0)
End If
If TextBox4.Text = "" Then
MsgBox "Veuillez saisir ce champs", 16
Label37.ForeColor = RGB(255, 0, 0)
End If
...........................................jusqu'au textbox 11
Exit Sub