Simplifier une liste d'éléments.

[kohta]

Bonjour, je dispose d'une usf comportant une 30aine de textbox, et j'aimerais juste savoir comment faire pour éviter d'avoir à taper les 30 noms à la suite, pour simplifier la saisie quand je crée un

if "toutes les textbox de l'usf" condition


Merci

 

[Spitnolan08]

Re : Simplifier une liste d'éléments.

Bonjour,

Si bien compris, une solution simple :

Dim Compteur as integer
For i=1 to 30
If me.controls("Textbox" & i).value= .....then compteur=compteur +1
next
If Compteur = 30 then Msgbox("condition OK")
....

Cordialement

 

[ftho]

Re : Simplifier une liste d'éléments.

Bonjour,

Le plus simple serait de nommer les TextBox : TextBox1, TextBox2, ..., TextBox30

Ensuite une petit boucle

With UserForm1 'ou With Me
For x = 1 to 30
If .Controls("TextBox" & x) = ... Then
...
End If
End With