Faire une boucle sur des labels ou textBox

Bonjour
J'ai créé 30 textBox dans un userform et j'aimerais soit toutes les vider d'un coup, soit vérifier le contenu de chacune d'elles soit en vider certaines.
Je souhaiterais passer par une boucle for...next en utilisant un incrément i sur à la place du numéro de la textbox. Cela me permettrait d'eviter de toutes les vérifier une à une cad:

Code:

---

1 2 3 4 5

For i = 1 to 30 if userfoorm1.textbox i .value = "0" then msgbox("erreur") End if Next

---

Merci d'avance

Bonjour,

Code:

---

1 2 3 4 5

For i = 1 to 30 if userfoorm1.controls("textbox" & i ).value = "0" then msgbox("erreur") End if Next

---

Bonjour

Pour vider les TextBox

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim CTRL As Control For Each CTRL In Me.Controls If TypeOf CTRL Is msforms.TextBox Then CTRL.Text = vbNullString End If Next End Sub

---

A+


J.L

:yaisse2:
Merci pour vos réponses...
Vous m'avez soulagé d'un boulot monstre!
A+