Simplifier une liste d'éléments.

kohta · 20 Mars 2008

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 · 20 Mars 2008

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

Bonjour,

Si bien compris, une solution simple :

Code:

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 · 20 Mars 2008

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

Bonjour,

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

Ensuite une petit boucle

Code:

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

Simplifier une liste d'éléments.

kohta

XLDnaute Occasionnel

Spitnolan08

XLDnaute Barbatruc

ftho

XLDnaute Occasionnel

Discussions similaires