Excel vba valider si textbox non vides

Résolu

lulu37 Messages postés 76 Date d'inscription Statut Membre Dernière intervention -
lulu37 Messages postés 76 Date d'inscription Statut Membre Dernière intervention - 28 août 2006 à 13:13

Bonjour,
Comment effectuer un controle de saisie sur un formulaire à 3 textbox?
Je voudrais à la validation du formulaire, que les 3 textbox ne soient pas vides.
Si elles sont vides, que ca retourne au meme formulaire, et si non vides, que ca continue la macro de validation.
mon code actuel est le suivant :

Private Sub OK_Click()
'controle saisie des 3 criteres d identification'
If ListBoxService = "" Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
End If
If TextBoxNom = "" Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
End If
If TextBoxPrenom = "" Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
End If

...suite macro...
UserForm1.Hide
UserForm2.Show
End Sub

du coup ca me met bien les msgbox, mais la macro continue...alors que je voudrais qu'elle s'arrete si la valeur est nulle.

J'ai essayé d'inscrire End Sub dans le corps If mais ce ne fonctionne pas non plus ...

Pouvez vous m'aider?
Merci d'avance

A voir également:

Excel vba valider si textbox non vides
Si ou excel - Guide
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Excel cellule couleur si condition texte - Guide
Déplacer colonne excel - Guide

4 réponses

Réponse 1 / 4

ccmnino Messages postés 188 Date d'inscription Statut Contributeur Dernière intervention 52

Salut!

-Modifier ton code comme ça , ajoute "Dim rien" et remplace:

Private Sub OK_Click()
Dim rien
'controle saisie des 3 criteres d identification'
If ListBoxService = rien Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
End If
If TextBoxNom = rien Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
End If
If TextBoxPrenom = rien Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
End If

A+

Réponse 2 / 4

ccmnino Messages postés 188 Date d'inscription Statut Contributeur Dernière intervention 52

Salut!

moi je utilise vb6 et non vb for office peut-étre ça:
-Essai ça:

Private Sub OK_Click()
Dim rien
'controle saisie des 3 criteres d identification'
If ListBoxService = rien Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
Exit sub
End If
If TextBoxNom = rien Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
Exit sub
End If
If TextBoxPrenom = rien Then
MsgBox "Vous devez renseigner les 3 critères d'identification.", 0, "Information"
Exit sub
End If

Réponse 3 / 4

lulu37 Messages postés 76 Date d'inscription Statut Membre Dernière intervention 13

ca n'arrete pas pour autant la macro ...
?

Réponse 4 / 4

lulu37 Messages postés 76 Date d'inscription Statut Membre Dernière intervention 13

Exit Sub
Le détail qui fait toute la différence !
Merci beaucoup ccmnino

Discussions similaires

Colorer une cellule quand une autre est non vide

Excel formule : savoir si une cellule contient partie texte

Votre réponse

Discussions similaires