Afficher un message d'erreur si le textbox n'est pas rempli

Bonjour à tous !

Je débute grandement dans le VBA et j'ai un problème avec mon code. J'ai crée un formulaire avec des Checkbox auxquelles sont associés des TextBox.

Je souhaite "forcer" l'utilisateur à remplir les Textbox pour expliquer son choix. J'ai donc pensé au code suivant :

Private Sub CommandButtonvalidation_Click()
If CheckBox1.Value = True & TextBox1 = "" Then
    MsgBox ("Merci de préciser vos réponses")

 ElseIf CheckBox1.Value = True & TextBox1 <> "" Then
  Me.Hide
 End If
End Sub

Seulement le formulaire se ferme à chaque fois même quand le textbox est vide, est-ce qu'il y a une erreur dans le code ?

Si vous connaissez d'autres moyens de "forcer" l'utilisateur à remplir les textbox je suis tout ouïe !

En vous remerçiant d'avance !

Soledad

Bonjour,

A tester

If TbAdresse.Value = "" Then   'SI pas de "nom" ...
    MsgBox "Veuillez completer l'adresse"
    'Me.TbAdresse.SetFocus
    Me.LbAdresse.ForeColor = RGB(255, 0, 0)     'Label "nom" en rouge
  ElseIf CbbLocalités.Value = "" Then
    MsgBox "Veuillez completer la localité"
Si l'adresse du TextBox TbAdresse est vide,le msg s'affiche avec un label en rouge

Amicalement

Pierrot

Bonjour à tous

Tu devrais ajouter une instruction pour arrêter la macro, après ton message :

Private Sub CommandButtonvalidation_Click()

If CheckBox1.Value = True & TextBox1 = "" Then

MsgBox ("Merci de préciser vos réponses")

Exit Sub

ElseIf CheckBox1.Value = True & TextBox1 <> "" Then

Me.Hide

End If

End Sub

Bye !

Bonsoir gmb

la partie de code que j'ai posté, vient d'un code complet

Merci de ta précision

Bonne soirée

Pierrot

Bonsoir à tous.

Merci beaucoup gmb ! Ca fonctionne.

Merci à vous

Soledad