VBA: Boucle tant que
L01C
Messages postés
385
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 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 valider
Bonne suite
A integrer et adapter dans le code du bouton valider
Dim 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
