Macro Copier une image qui se trouve en B8 sur toutes les feuilles du classeur en B8

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

verolyde

XLDnaute Nouveau
Bjr,

Je voudrais copier l'image qui se trouve sur la feuille SEM1 en D8 sur toutes les autres feuilles du classeur, SEM2 à SEM53. J'ai trouvé ce code mais qui ne marche comme je le souhaiterai.

#Sub INSERIMAG()
#Dim i As Integer
#Sheets("SEM1").Shapes("Image 11").Copy
#For i = 1 To Sheets.Count
#If Sheets(i).Name <> "SEM1" Then Sheets(i).Paste Range("D8")
#Next i
#End Sub

Malheureusement, la copie se fait, se met bien en D8 mais sur la même feuille SEM1.
Cela fait plusieurs jours que je travailles sur cette macro. De plus, le nom de l'image change à chaque fois que j'en intégre une autre, ne pourrais pas la nommer d'office Image 1 pour que la macro soit toujours la même.

Pourriez vous m'aider ?

Je vous en remercie par avance et vous joins un fichier.

Verolyde
 

Pièces jointes

Re : Macro Copier une image qui se trouve en B8 sur toutes les feuilles du classeur e

bjr,

Merci à Néné06. C'est presque parfait. Une petite aide encore ????

Je souhaiterai que la signature se centre dans la cellule, car actuellement elle se met tout en haut du carré à gauche.

Encore merci de ta rapidité.

Bien cordialement

vérolyde
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
477
Réponses
1
Affichages
496
Retour