Copie d'un bouton

Bonjour à tous,

Je rencontre une erreur (438) pour le code suivant sur la ligne 5 :

1/ Sub dupliquerBouton(nom As String, cellule As Long)

2/ Application.CopyObjectsWithCells = True

3/ With Workbooks("Fi-Flash.xlsm").Sheets("Analyse")

4/ .Shapes(nom).Copy

5/ .Cells(cellule, 7).Paste

6/ End With

7/ Application.CopyObjectsWithCells = False

8/ End Sub

Cette macro doit me servir à dupliquer un bouton préexistant, appartenant à la feuille "Analyse".

Ce code fonctionnait par le passé, lorsque j'utilisais les méthodes .activate et .select (les variables sont donc valides).

D’où peut provenir ce message erreur?

Bonjour,

D'une part tu ne copies pas une plage mais la forme elle-même, tes lignes 2 et 7 sont donc inutiles (elles ne font rien : pure décoration).

D'autre part, tu utilises Paste comme méthode de l'objet Range, c'est une méthode de l'objet Worksheet, d'où l'erreur constatée.

 .Paste .Cells(cellule, 7)

devrait mieux fonctionner.

Cordialement.

MFerrand,

Merci pour votre solution qui fonctionne parfaitement!

Cordialement,

Merci du retour.

Bonne journée.