VBA: Boucle tant que
L01C
Messages postés
323
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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:)
A voir également:
- VBA: Boucle tant que
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
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
