Controle des textbox

[vince]

Bonjour,

J'ai un userform avec plein de textboxes.
Je voudrais que l'application soit lancée seulement si au moins une des textbox est complétée.

En d'autres termes si TOUTES et seulement TOUTES les textboxes sont vides, l'application n'est pas lancée et un message d'erreur apparait.

J'ai bien essayé avec For...each mais ca na marche pas..

Merci d'avance pour votre aide

Vince

 

[michel]

bonjour Vince

tu peux tester


Private Sub CommandButton1_Click()
Dim Ctrl As Control

For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then 'cible les TextBox dans l'USF

If Ctrl.Value <> "" Then 'si le TextBox est non vide
MsgBox "Lancer l'application"
Exit Sub 'sort de la procédure car la condition ( au moins un TextBox non vide ) est remplie
End If

End If
Next

MsgBox "Tous les TextBox sont vides ."

End Sub



bonne journée
MichelXld

 

[vince]

C'est exactement ce qu'il me fallait.

Merci Michel pour ton aide qui va m'éviter quelques heures de prise de tête...

Bonne journée.