Discussion :

[jpma75]

Bonjour,

Je pensais pouvoir remplacer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Label_U1 = Feuil04.[u1]
    Label_U2 = Feuil04.[u2]
    Label_U3 = Feuil04.[u3]
    Label_U4 = Feuil04.[u4]
    Label_U5 = Feuil04.[u5]
    Label_U6 = Feuil04.[u6]
    Label_U7 = Feuil04.[u7]
    Label_U8 = Feuil04.[u8]
    Label_U9 = Feuil04.[u9]
    Label_U10 = Feuil04.[u10]
    Label_U11 = Feuil04.[u11]
    Label_U12 = Feuil04.[u12]
    Label_U13 = Feuil04.[u13]

par :

Code :

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

1
2
3
For Ligne = 1 To 13
    Me.Controls("Label_U" & Ligne).Caption = Feuil04.Range("U" & Ligne).Value
Next Ligne

mais ça ne marche pas !

Je cherche à optimiser la suite de Private Sub UserForm_Initialize() :

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
27
28
29
30
31
32
Label_U1 = Feuil04.[u1]
    Label_U2 = Feuil04.[u2]
    Label_U3 = Feuil04.[u3]
    Label_U4 = Feuil04.[u4]
    Label_U5 = Feuil04.[u5]
    Label_U6 = Feuil04.[u6]
    Label_U7 = Feuil04.[u7]
    Label_U8 = Feuil04.[u8]
    Label_U9 = Feuil04.[u9]
    Label_U10 = Feuil04.[u10]
    Label_U11 = Feuil04.[u11]
    Label_U12 = Feuil04.[u12]
    Label_U13 = Feuil04.[u13]
 
    Label_V1 = Feuil04.[v1]
    Label_V2 = Feuil04.[v2]
    Label_V3 = Feuil04.[v3]
    Label_V4 = Feuil04.[v4]
    Label_V5 = Feuil04.[v5]
    Label_V6 = Feuil04.[v6]
    Label_V7 = Feuil04.[v7]
    Label_V8 = Feuil04.[v8]
    Label_V9 = Feuil04.[v9]
    Label_V10 = Feuil04.[v10]
    Label_V11 = Feuil04.[v11]
    Label_V12 = Feuil04.[v12]
    Label_V13 = Feuil04.[v13]
 
    Label_W1 = Feuil04.[w1]
    Label_W2 = Feuil04.[w2]
    Label_W3 = Feuil04.[w3]
(...)

(soit U à Z)

En vous remerciant pour vos lumières,
Cordialement,
jp

[Jean-Philippe André]

Bonjour,

quel est le nom de la feuille dans ton excel ?

Code :

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

1
2
3
For Ligne = 1 To 13
    Me.Controls("Label_U" & Ligne).Caption = Worksheets("TonNomDeFeuille").Range("U" & Ligne).Value
Next Ligne

le code est bon, mais il faut peut etre ajouter un me.repaint, mais de mon bord ca fonctionne tres bien en l'état

as tu mis un point d'arrêt pour t'assurer que le code se déclenche bien ? les cellules sont-elles bien alimentées ?

[jpma75]

Bonjour,

Merci pour cette proposition.

Oui les cellules sont bien alimentées et tout fonctionne bien SANS la boucle, sinon, j'ai ce message (avec ton code) :


(et l'exécution du code s'arrête ici :

Code :

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

1
2
3
Private Sub Afficher_Stats_Click()
    Menu_Stats.Show
End Sub

[jpma75]

Oups, ça marche (j'avais désactivé le Label_U1) !

J'ai donc commencé la boucle avec i = 2

Puis-je faire une boucle qui balaye les colonnes (U) V à Z ?

[Jean-Philippe André]

Il te suffit de dupliquer les 3 lignes en changeant les lettres

[jpma75]

Bonjour,

Il te suffit de dupliquer les 3 lignes en changeant les lettres

Ah ah Evidemment, je pensais à une boucle sur la lettre...

Je suis passé de :

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
''    Label_U1 = Feuil04.[u1]
''    Label_U2 = Feuil04.[u2]
''    Label_U3 = Feuil04.[u3]
''    Label_U4 = Feuil04.[u4]
''    Label_U5 = Feuil04.[u5]
''    Label_U6 = Feuil04.[u6]
''    Label_U7 = Feuil04.[u7]
''    Label_U8 = Feuil04.[u8]
''    Label_U9 = Feuil04.[u9]
''    Label_U10 = Feuil04.[u10]
''    Label_U11 = Feuil04.[u11]
''    Label_U12 = Feuil04.[u12]
''    Label_U13 = Feuil04.[u13]
'
'    Label_V1 = Feuil04.[v1]
'    Label_V2 = Feuil04.[v2]
'    Label_V3 = Feuil04.[v3]
(etc. jusqu'à la colonne AA)

à :

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
27
28
29
30
31
32
33
34
35
Private Sub UserForm_Initialize()
 
    For i = 2 To 13
        Me("Label_U" & i) = Feuil04.Cells(i, 21)
    Next i
 
    For i = 1 To 13
        Me("Label_V" & i) = Feuil04.Range("V" & i).Value
    Next i
 
    For i = 1 To 13
        Me("Label_W" & i) = Feuil04.Range("W" & i).Value
    Next i
 
    For i = 1 To 13
        Me("Label_X" & i) = Feuil04.Range("X" & i).Value
    Next i
 
    For i = 1 To 13
        Me("Label_Y" & i) = Feuil04.Range("Y" & i).Value
    Next i
 
    For i = 1 To 13
        Me("Label_Z" & i) = Format(Feuil04.Range("Z" & i).Value, "0.0 %")
    Next i
 
    Label_AA1 = Feuil04.[aa1]
 
    For i = 2 To 13
        Me("Label_AA" & i) = Feuil04.Range("AA" & i).Value
        If Feuil04.Range("AB" & i) = "B" Then Me("Label_AA" & i).ForeColor = vbRed
        If Feuil04.Range("AB" & i) = "H" Then Me("Label_AA" & i).ForeColor = vbBlue
    Next i
 
End Sub

Je suis sûr qu'on peut faire mieux mais à mon petit niveau c'était déjà inespéré.

Cdt

PS : question naïve :

On ne peut manifestement pas remplacer :

Code :

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

Range("A" & i).Value

Par :

Code :

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

["a" & i]

[Pierre Fauconnier]

Salut.

Je ne sais pas si c'est normal que parfois le i de ta boucle commence à 1 et parfois à 2, mais tu pourrais tout mettre dans une seule boucle, histoire de ne pas boucler x fois 13 fois:

Code :

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

1
2
3
4
5
6
7
8
    For i = 1 To 13
        Me("Label_V" & i) = Feuil04.Range("V" & i).Value
        Me("Label_W" & i) = Feuil04.Range("W" & i).Value
        Me("Label_X" & i) = Feuil04.Range("X" & i).Value
        Me("Label_Y" & i) = Feuil04.Range("Y" & i).Value
        Me("Label_Z" & i) = Format(Feuil04.Range("Z" & i).Value, "0.0 %")
        If i > 1 Then Me("Label_U" & i) = Feuil04.Cells(i, 21)
    Next i

Sans voir la feuille concernée, difficile d'aller plus loin, mais ton code est déjà plus concis et "plus rapide"


Cela dit, l'utilisation d'un tableau structuré t'aiderait à avoir un code plus propre et moins couplé à ta feuille par les positions de cellules.

[Pierre Fauconnier]

Comme je le dis souvent, les pratiques que j'utilise ne sont pas bonnes parce que ce sont les miennes, ce sont les miennes parce qu'elles sont bonnes.

Sur mon blog, je prends un peu plus de liberté de ton que sur le forum, et je parsème donc ma prose d'une dose d'humour (hum) ou de quelques égratignures. Sois cependant rassuré, je ne vise pas TOUS les utilisateurs de cette syntaxe, mais seulement ceux qui aiment "mystifier" leur code par des artifices tels que cette syntaxe particulière, la déclaration raccourcie de variables avec Dim a$ au lieu de Dim a As String pour embrouiller le "plouc", l'utilisation à outrance du scripting.dictionary pour masquer leurs incompétences en Excel et qui, surtout, n'apprécient pas qu'on taxent leurs pratiques de "mauvaises" en apportant des arguments techniques probants... Ces infatués n'ont jamais été foutus d'apporter le moindre argument technique valable justifiant l'utilisation de leurs "trucs de savant" et sont parfois bien en peine d'en expliquer le fonctionnement. Et comme je rédige certains billets directement après avoir lu leurs "solutions", je donne un ou deux coups de griffe au passage, chacun ses plaisirs...

[...]Malheureusement, ça concerne aussi ce qui est plus récent...

C'est pour cela que je répète souvent les mêmes choses, pour que petit à petit, chacun ait l'occasion de les lire. Après, chacun fait comme il veut. Le plus sérieux étant de tester ce que je dis et ce que je propose, et d'y adhérer ou pas en toute connaissance de cause en se forgeant SES bonnes pratiques, qui ne sont pas forcément les miennes

Allez, c'est l'heure de l'apéro