Caption de label a retranscrire de feuille a feuille

[axou91]

Bonjour à tous,

Je n'arrive pas à copier le caption d'un label se trouvant sur la feuil1 et de le retranscrire sur une colonne d'une autre feuille.
Voici le code :

sheets("BDD").Cells(Lg, 4).Value = Me.sheets("Feuil1").Label1.Caption


Je vous ai fait un exemple de ce que je recherche en pièce jointe.

Merci pour votre aide.

aXOU

 

[phlaurent55]

Re : Caption de label a retranscrire de feuille a feuille

Bonjour Axou,


Sheets("BDD").Cells(Lg, 4).Value = Sheets("Feuil1").Label1.Caption

au lieu de:

Sheets("BDD").Cells(Lg, 4).Value = Me.sheets("Feuil1").Label1.Caption

dans ton exemple, Lg est sans valeur et provoque une erreur

à+
Philippe