If then avec double circonstances

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chewwe1602

XLDnaute Nouveau
Bonsoir a tous,

J'essaye mais ne trouve pas de solution a mon petit soucis.
J'ai un userform1 dans lequel je rentre des coordonnées clients. une fois ces coordonnées rentrés la validation du formulaire doit faire deux chose :
fermer le userform1 et ouvrir un userform2 qui me sert de parametrage de commande client.

pour ce faire je procede de la facon suivante :

Private Sub BTVALIDER_Click()
If TextBoxsociete = "" Then
MsgBox "Merci de renseigner le nom de societe"
ElseIf TextBoxnom.Value = "" Then MsgBox " Merci de renseigner votre Nom"
ElseIf TextBoxrue.Value = "" Then MsgBox " Merci de renseigner le nom de la Rue"
ElseIf TextBoxCP.Value = "" Then MsgBox " Merci de renseigner le Code postal"
ElseIf TextBoxville.Value = "" Then MsgBox " Merci de renseigner la ville."
End If
If TextBoxsociete <> "" And TextBoxnom.Value <> "" And TextBoxrue.Value <> "" And TextBoxCP.Value <> "" And TextBoxville.Value <> "" Then Unload Me
userform2.Show
End Sub


mon soucis c'est que tout se passe bien sauf si j'oublis de renseigner le champ textboxnom. la j'ai le message d'erreur qui apparait ( parfait ) mais j'ai aussi le userform2 qui s'ouvre.

ca me fait un peu rager car je voudrai que le userform2 ne s'ouvre que si la dernière ligne de conditions est remplie. a savoir donc, tous les champs renseignés.
j'ai essayé la chose suivante :
If TextBoxsociete <> "" And TextBoxnom.Value <> "" And TextBoxrue.Value <> "" And TextBoxCP.Value <> "" And TextBoxville.Value <> "" Then Unload Me and userform2.Show

mais bien sur ca ne fonctionne pas 🙂

pouvez vous m'aider 🙂

D'avance merci.🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
585
Réponses
16
Affichages
1 K
Réponses
3
Affichages
607
Retour