Discussion :

[Actarusdu60]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jolop35]

Bonjour

Pour vider les TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Actarusdu60]

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