Discussion :

[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 :

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

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

[Philippe Tulliez]

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

[Zeltron59]

Bonsoir Philippe

OK je plonge directement dans cette lecture et Merci

[barpasc]

j'ai pas testé, regarde si ca marche

Code :

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

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

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 :

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

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

[Philippe Tulliez]

Bonjour barpasc,

j'ai pas testé, regarde si ca marche

Code :

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

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 :

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

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

[barpasc]

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 :

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

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