Problème avec Boucle FOR

Bonjour le Forum,

J'ai un souci avec une boucle FOR
Dans un formulaire, j'ai 21 TxtBox nommées T_01 à T_21)
J'ai dans l'initialisation de mon formulaire la formule suivante :

Code:

---

1 2 3 4 5 6

dim i as string   For i= 01 to 21 T_i=(Format(T_i, "0.00 €") Next i

---

Et cela ne marche pas . Je ne comprends pas le pourquoi

Bonjour,
Je vous conseille la lecture du chapitre I-B. Boucler sur les contrôles contenus dans la Forme du tutoriel de Michel Tanguy (Silkyroad) Utiliser les contrôles dans un UserForm, en VBA Excel

Bonsoir Philippe

OK je plonge directement dans cette lecture et Merci

j'ai pas testé, regarde si ca marche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Activate() Dim c As Control For Each c In Me.Controls If TypeName(c) = "TextBox" Then y = Left(c.Name, 2) If y = "T_" Then 'methode format End If End If Next c End Sub

---

Citation:

---

Envoyé par Zeltron59

Bonjour le Forum,

J'ai un souci avec une boucle FOR
Dans un formulaire, j'ai 21 TxtBox nommées T_01 à T_21)
J'ai dans l'initialisation de mon formulaire la formule suivante :

Code:

---

1 2 3 4 5 6

dim i as string   For i= 01 to 21 T_i=(Format(T_i, "0.00 €") Next i

---

Et cela ne marche pas . Je ne comprends pas le pourquoi

---

Bonjour barpasc,

Citation:

---

j'ai pas testé, regarde si ca marche

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Activate() Dim c As Control For Each c In Me.Controls If TypeName(c) = "TextBox" Then y = Left(c.Name, 2) If y = "T_" Then 'methode format End If End If Next c End Sub

---

---

La procédure fonctionne parfaitement si tous les TextBox cherchés sont préfixés par "T_".

Cependant d'après la demande, il me semble que le préfixe est de T_01 à T_21.

Une solution avec la clause LIKE non sensible à la casse et non limité à 21 (à adapter éventuellement)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub t() Dim c As Control For Each c In Me.Controls If TypeName(c) = "TextBox" And LCase(c.Name) Like "t_##*" Then ' Code à écrire End If Next Set c = Nothing End Sub

---

j'ai omis 2 choses dans la réponse précedente, le formulaire s'initialise et le nombre de texte box peut ne pas être égale à 21

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub UserForm_Initialize() Dim c As Control   Dim str(20) As String For i = 0 To 20 str(i) = "T_" & Format(CStr(i), "0#") Next i   For Each c In Me.Controls If TypeName(c) = "TextBox" Then y = Filter(str, c.Name) If UBound(y) > -1 Then 'methode format Debug.Print c.Name End If End If Next c End Sub

---