fr832
XLDnaute Occasionnel
Bonjour à tous j'utilisais ce code qui fonctionne trés bien
mais je l'ai modifié ainsi (nom de la feuille changé) et j'ai une erreur with.
Comment dois je modifier mon code pour que ça fonctionne ? par avance merci
Code:
Private Sub UserForm_Initialize()
With Feuil1
Label3 = .[K4]
Label4 = .[L4]
Label5 = .[M4]
Label6 = .[N4]
Label7 = .[O4]
Label8 = .[P4]
Label9 = .[Q4]
Label10 = .[R4]
Label11 = .[S4]
Label12 = .[T4]
Label13 = .[U4]
Label14 = .[V4]
Label15 = .[W4]
Label16 = .[X4]
End With
End Sub
mais je l'ai modifié ainsi (nom de la feuille changé) et j'ai une erreur with.
Comment dois je modifier mon code pour que ça fonctionne ? par avance merci
Code:
Private Sub UserForm_Initialize()
With "base de données"
Label3 = .[B1]
Label24 = .[C1]
Label5 = .[D1]
Label6 = .[E1]
Label7 = .[F1]
Label8 = .[G1]
Label9 = .[H1]
Label10 = .[I1]
Label11 = .[J1]
Label12 = .[K1]
Label13 = .[L1]
Label14 = .[M1]
Label15 = .[N1]
Label16 = .[O1]
Label17 = .[P1]
Label18 = .[Q1]
Label19 = .[R1]
Label20 = .[S1]
Label21 = .[T1]
Label22 = .[U1]
End With
End Sub