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:)
A voir également:
- VBA: Boucle tant que
- Excel compter cellule couleur sans vba - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
- Autofill 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
