Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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 !

bellous

XLDnaute Occasionnel
bonjour,

Lors de la copie d'une image d'une feuille à une autre, je ne peut plus sélectionner cette image . Pour plus de clarté, je joins un exemple simple et basic de mon problème.

Sheets("factures").Select
ActiveSheet.Shapes("Picture 1").Copy
Sheets("factures1").Select
Range("a1").Select
ActiveSheet.Paste
Range("a3").Select
ActiveSheet.Shapes("Picture 1").Select

A l'instruction "ActiveSheet.Shapes("Picture 1").Select" il ne trouve pas le nom de l'image.

Merci de votre aide
 
Re : Nom image

Bonjour bellous,

C'est normal, à chaque copie de l'image, voire même de la feuille, l'image change de nom...

Dans ton cas, normalement, elle doit se nommer Picture 2, sauf si entre-temps d'autres images ont été insérées.

Il faut donc réindexer. Et je ne sais pas faire directement sans retourner dans VBE.

A te lire.

Jean-Pierre
 
Re : Nom image

merci jeanpierre de ta réponse.
J'ai pensé la même chose pour l'indexation du numéro. Je sais faire pour les boutons ( les renommer), mais je n'ai pas pu adapter la même chose pour l'image.
Mon problème reste donc entier.
 
Re : Nom image

Re,

Il suffit de cliquer sur l'image, et dans la zone Adresse, à gauche de la barre de formule, tu modifies, derrière Picture, le 2, ou 3, ou.... en 1.

A te lire.

Edit : Salut Pierrot
 
Re : Nom image

Merci pierrot93, mais que ce soit un nombre ou des lettres, cela ne change rien.

Avec la piste de jeanpierre, j'ai touvé.

Que c'était simple : renommer l'image (ça j'avais pensé) mais simplement avec

Selection.name = "Picture 1"

Encore merci à tous
 
- 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
1
Affichages
313
Réponses
10
Affichages
791
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…