Macro pour copier/coller une shape

Bonjour Tout le Forum

Voici mon soucis:

J'ai associé une Macro à une shape et j'aimerais la copier et coller sur mes cinquante feuilles nommées 1,2,3,4,...,50

Merci pour tout

Bonjour KTM,

Sub copyshape()

ActiveSheet. Shapes("untel"). Copy

For S=1 to 50

Feuil=Cstr(S)

Sheets(Feuil).Paste

Next S

End sub

Bonne continuation.

X Cellus a écrit :

Bonjour KTM,

Sub copyshape()

ActiveSheet. Shapes("untel"). Copy

For S=1 to 50

Feuil=Cstr(S)

Sheets(Feuil).Paste

Next S

End sub

Bonne continuation.

Merci mais pouvez vous m'aider à déchiffrer ce code ?

A nouveau,

Avec commentaires

'Nom de la macro
Sub copyshape()
'Feuille ou se trouve la forme portant ta macro. Comme le nom de la forme n'est pas donné dans ton sujet. Je l'ai appelé untel. A adapter au nom de ta forme. Celle-ci est donc copiée macro incluse
ActiveSheet. Shapes("untel"). Copy
'Puis boucle sur l'ensemble des feuilles nommées 1 à 50 
For S=1 to 50
'Formatage en String (texte) de la variable S pour la variable Feuil
Feuil=Cstr(S)
'Puis chaque feuille reçoit la copie de la forme
Sheets(Feuil).Paste
Next S
End sub

La seule modification à faire est de changer untel par le nom de la forme à copier.

Bonne continuation.

X Cellus a écrit :

A nouveau,

Avec commentaires

'Nom de la macro
Sub copyshape()
'Feuille ou se trouve la forme portant ta macro. Comme le nom de la forme n'est pas donné dans ton sujet. Je l'ai appelé untel. A adapter au nom de ta forme. Celle-ci est donc copiée macro incluse
ActiveSheet. Shapes("untel"). Copy
'Puis boucle sur l'ensemble des feuilles nommées 1 à 50 
For S=1 to 50
'Formatage en String (texte) de la variable S pour la variable Feuil
Feuil=Cstr(S)
'Puis chaque feuille reçoit la copie de la forme
Sheets(Feuil).Paste
Next S
End sub

La seule modification à faire est de changer untel par le nom de la forme à copier.

Bonne continuation.

Tres bien compris. Merci