VBA: Boucle tant que
L01C
Messages postés
385
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis sur Excel 97 et je réalise un logiciel avec des userforms. Bref, sur un Userform, j'ai plusieurs Textbox. Ces textbox sont des valeurs à rentrer qui vont se mettre sur une feuille Excel utilisé comme base de donnée. En plus de ces textbox à remplir, j'ai également un bouton annuler et valider. J'aimerais faire un truc à la Do While ou Do untile While, genre tant que tous les textbox ne sont pas remplis, on reste bloqué sur le userform avec un message d'alerte type vbError. J'ai à peu près une idée de l'ensemble en français mais c'est pour le traduire en langage VBA que je galère.
MErci:)
Je suis sur Excel 97 et je réalise un logiciel avec des userforms. Bref, sur un Userform, j'ai plusieurs Textbox. Ces textbox sont des valeurs à rentrer qui vont se mettre sur une feuille Excel utilisé comme base de donnée. En plus de ces textbox à remplir, j'ai également un bouton annuler et valider. J'aimerais faire un truc à la Do While ou Do untile While, genre tant que tous les textbox ne sont pas remplis, on reste bloqué sur le userform avec un message d'alerte type vbError. J'ai à peu près une idée de l'ensemble en français mais c'est pour le traduire en langage VBA que je galère.
MErci:)
1 réponse
-
Bonjour,
A integrer et adapter dans le code du bouton validerDim Cont As Control '------------------------------------------------------------- 'C'est la routine "Lire" de cette astuce For Each Cont In Me.Controls If TypeOf Cont Is MSForms.TextBox Then If Cont.Object.Text = "" Then MsgBox "ATTENTION! Manque une ou plusieurs informations." Exit Sub End If End If Next Cont '-------------------------------------------------------------
Bonne suite
