Discussion :

[dodo28]

Bonjour,
Pouvez vous m'aider sur ce problème?
Sur un formulaire, j'ai des zones de textes dont la taille de caractère va dépendre du contenu.
Par contre j'ai beaucoup de zone de texte donc j'aurais voulu faire une boucle, j'ai fait ce code :

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
20
21
22
23
 
with Me
 
'Nom des texbox
 
X1 = DEM_N_C2
X2 = DEM_N_C1
X3 = Te_FormuleAutoSomme
X4 = DEM_N_T2
 
For I = 1 To 4
 
X = X & I ' j'ai essayé comme ca mais ca ne marche pas non plus : "X" & Trim(Str(Val(I)))
 
        If Len(.Controls(X)) > 2 Then
            .Controls(X).FontSize = 14
            Else
            .Controls(X).FontSize = 18
        End If
 
Next I
 
end with

J'aurai voulu que X prenne le contenu de la variable X1 puis X2 Puis...etc

Merci pour votre aide.

[jimbolion]

dodo28,

je viens de tester ton code, et il fonctionne très bien de cette façon :
je l'active par un clic sur un bouton (comment est il déclenché de ton côté ?)

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
20
Private Sub Commande4_Click()
Dim monctl As String
With Me
 
'Nom des texbox
 
For i = 1 To 2
 
monctl = "X" & Trim(Str(Val(i))) ' j'ai essayé comme ca mais ca ne marche pas non plus : "X" & Trim(Str(Val(I)))
 
        If Len(.Controls(X)) = 1 Then
            .Controls(X).FontSize = 14
            Else
            .Controls(X).FontSize = 18
        End If
 
Next i
 
End With
End Sub

jimbolion

[dodo28]

Bonjour,
Merci pour votre aide.
Il est actionné par bouton avec un call.

J'ai mis un msgbox sous :

Code :

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

monctl = "X" & Trim(Str(Val(i)))

et là le msgbox me dit que monctl = X1, et il faudrait que monctl = DEM_N_C2 soit le contenu de la variable X1.

Merci

[Filou07]

Bonjour,

Il te faut utiliser la fonction Eval (et des guillemets pour les différents X) , ce qui te donnerait un code du genre :

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
20
21
22
with Me
 
'Nom des texbox
 
X1 = "Me.DEM_N_C2"
X2 = "Me.DEM_N_C1"
X3 = "Me.Te_FormuleAutoSomme"
X4 = "Me.DEM_N_T2"
 
For I = 1 To 4
 
nomctrl="X" & I
 
        If Len(Eval(nomctrl)) > 2 Then
            Eval(nomctrl).FontSize = 14
            Else
            Eval(nomctrl).FontSize = 18
        End If
 
Next I
 
end with

[dodo28]

Merci Filou,
Excuse du retard pour la réponse, vacances obligent.

Malheureusement ca ne marche pas non plus avec Eval.
Je dois zapper quelques choses.
L'erreur est : ne parvient pas a trouver X1 ( ce qui est normal, vu qu'il doit trouver "DEM_N_C2").

Je remets mon code :

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
20
21
22
23
24
25
26
 
With MonFormulaire
 
    X1 = "DEM_N_C2"
    X2 = "DEM_N_C1"
    X3 = "Te_FormuleAutoSomme"
    X4 = "DEM_N_T2"
 
 
    For I = 1 To 4
 
     X = "X" & Trim(Str(Val(I)))
 
 
     MsgBox (Eval(X))
 
            If Len(.Controls(Eval(X))) > 2 Then
                .Controls(Eval(X)).FontSize = 14
                Else
                .Controls(Eval(X)).FontSize = 18
            End If
 
    Next I
 
 
End With

Merci pour votre aide

[Filou07]

J'ai répondu un peu vite, la fonction Eval ne va rien t'apporter. Il vaut mieux considérer X comme un array allant de X(1) à X(4)

Je t'ai mis le code :

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
 
Dim nomctrl As String
Dim X(4)
With Me
    X(1) = "DEM_N_C2"
    X(2) = "DEM_N_C1"
    X(3) = "Te_FormuleAutoSomme"
    X(4) = "DEM_N_T2"
 
    For i = 1 To 4
        nomctrl = X(i)
        If Len(.Controls(nomctrl)) > 2 Then
            .Controls(nomctrl).FontSize = 14
        Else
            .Controls(nomctrl).FontSize = 18
        End If
    Next i
End With

Et là ça va aller mieux !

[dodo28]

Merci beaucoup.
c'est la bonne solution.