Initialisation texbox en boucle.

[GG]

Salut le forum
J’ai voulu utiliser des infos trouvées hier sur le fil mais j’obtiens une erreur.
Je voudrai initialiser des listbox en boucle voici le code utilisé.

For i = 24 To 47
With Controls('Textbox' & i)
.SetFocus
.SetStart = 0
End With
Next i

Le suivant ne marche pas non plus

For i = 24 To 47
TextBox& i.SetFocus
TextBox& i = 0
Next i

Merci de l'info si vous connaissez la réponse.

 

[pierrejean]

bonjour GG

tu peux t'inspirer de ceci [file name=GG.zip size=10503]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GG.zip[/file]

Message édité par: pierrejean, à: 31/05/2006 17:39

 

[GG]

Pierrejean
Merci mais je ne vois aucun texte ???

 

[pierrejean]

re

excuses le fichier n'etait pas passé

 

[GG]

Merci PJ
Je testerai demain matin.
A+

 

[bebere]

bonsoir
écrit comme suit

For i = 24 To 47
With me
.Controls('Textbox' & i).SetFocus
.Controls('Textbox' & i).SetStart = 0
End With
Next i

Private Sub Leon() 'Le Nettoyeur ;-)
Dim CTRL As Control
et un autre pour ta doc
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL = ''
ElseIf TypeOf CTRL Is MSForms.ListBox Or TypeOf CTRL Is MSForms.ComboBox Then
CTRL.Clear
End If
Next

End Sub

à bientôt

 

[GG]

Salut JP , bebere et le forum

Je devais être saturé hier soir, j’ai interverti les numéros des checkbox et textbox (en fait mon userform est multipage et comprends un peu de toutes les commandes).
Votre aide à été utile voici la syntaxe correcte.

For i = 24 To 47
With Me
.Controls('Checkbox' & i).SetFocus
.Controls('Checkbox' & i) = 0
End With
Next i
Bebere je garde au frais ta méthode plus professionnelle qui me servira certainement un jour.
Merci
A+