XL 2019 Sur userform, si toutes les textbox (32) sont vides, alors exit sub

[donpopo]

Bonsoir le forum,

Je cherche depuis quelques temps à créer une condition.

J'ai 32 textbox sur un userform ( de 15 à 46); je souhaite sortir de la procédure d'encodage de l'userform si AUCUN textbox n'est rempli.
J'ai essayé plusieurs moyens avec des boucles for ... next i, mais cela me sort de la procédure à la première textbox vide.

Quelqu'un aurait-il une idée pour m'aider?
Merci d'avance,

donpopo

 

[sylvanu]

Bonsoi Donpopo,
Faites le contraire, compter celles qui sont non vides :

    Vide = 0                    ' 0 si vide
    For i = 15 To 46
        If Me.TextBox(i) <> "" Then Vide = Vide + 1
    Next i
    If Vide = 0 Then Exit Sub   ' si 0 alors c'est que tout est vide

 

[mapomme]

Bonsoir @donpopo

Essayez :

   For i = 15 To 46: s = s & Me.Controls("textbox" & i): Next
   If s = "" Then Exit Sub

ou bien

Dim i&, j&
   For i = 15 To 46: j = j - (Me.Controls("textbox" & i) <> ""): Next
   If j = 0 Then Exit Sub

edit : bonsoir @sylvanu

 

[donpopo]

Bonsoir et merci à tous deux,
les 2 propositions fonctionnent, mais je comprends plus facilement la méthode proposée par sylvanu.

Amicalement,
donppo