Nom image

[bellous]

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

 

[jeanpierre]

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

 

[bellous]

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.

 

[Pierrot93]

Re : Nom image

Bonjour Bellous, Jean-Pierre

à la place du nom, tu peux utiliser le numéro d'index :

ActiveSheet.Shapes(1).Select

bon après midi
@+

 

[jeanpierre]

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

 

[bellous]

Re : Nom image

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

 

[bellous]

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

 

[Pierrot93]

Re : Nom image

Re

comprends pas trop, car si tu as au moins une image sur ta feuille, la ligne de code que je t'ai donnée aurais du fonctionner...

@+