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