Boucle sur textbox

[Manu13]

Bonsoir LE FORUM

j'ai une boucle qui verifie 15 textbox pour savoir si elles ont été toutes renseignés.
dans l'éventualité ou elles n'ont pas été toutes renseignés, est il possible de savoir lesquelles dans un msgbox?
je n'arrive pas à trouver comment faire....

Merci par avance
Manu

 

[Robert]

Bonsoir Manu, bonsoir le forum,

Pourrais-tu nous donner le code exact de ta boucle pour t'aider au plus juste.

Édition

Un exemple de code à condition que tes TextBoxes ne soient pas renommées. Si elles s'apellent donc TextBox1 à TextBox15. Ce code est à placer dans le bouton de validation de l'UserForm :

Private Sub CommandButton1_Click()
Dim x As Byte 'déclare la variable x

For x = 1 To 15 'boucle sur les 15 TextBoxes

If Me.Controls('textbox' & x).Value = '' Then 'condition : si la TextBox est vide
MsgBox 'Vous devez remplir la Textbox ' & x 'message
Me.Controls('textbox' & x).SetFocus 'place le curseur dans la TextBox
Exit Sub 'sort de la procédure
End If 'fin de la condition

Next x 'prochaine TexBox

End Sub

Message édité par: Robert, à: 20/11/2005 23:23

 

[Manu13]

Bonsoir Robert

voilà la boucle utilisé

For Each ctrlarray In Array(TextBox3, TextBox5, TextBox7, TextBox8, TextBox9, TextBox11, _
TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, _
TextBox18, TextBox19, TextBox20, TextBox21)

If ctrlarray.Value = '' Then Test = Test + 1
Next

A bientôt
manu

 

[Robert]

Bonsoir Manu. bonsoir le forum,

Je ne connaissais pas cette possibilité (array) ! Je retiens...

Alors en adaptant ça donne :

For Each ctrlarray In Array(TextBox3, TextBox5, TextBox7, TextBox8, TextBox9, TextBox11, _
TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, _
TextBox18, TextBox19, TextBox20, TextBox21)

If ctrlarray.Value = '' Then
MsgBox 'Vous devez remplir ce champ !'
ctrlarray.SetFocus
Exit Sub
End If
Next

 

[Manu13]

ah au faite
Merci pour ton code
je vais essayé de l'adapter

Bonne soirée
manu

 

[Manu13]

re bonsoir

merci Robert

je vais essayer et je te tiens au courant

bonne soirée
Manu

 

[manu13]

Bonsoir Robert et le Forum

le code fonctione très bien
sauf que je suis en multi page et le code plante pour passer a la page suivante.......mince dommage!!!

Manu