Bonjour
A partie d'une carte de France stockée sur la feuille1, je souhaiterai afficher des stats pour les Régions Bretagne, Normandie, Pys de loire et Centre Val de Loire et ce par département.
Lorsque je clique sur la zone Bretagne(par exemple) je voudrais faire apparaitre l'image des départements de la Bretagne stockée dans l'onglet Feuil2.
Pour afficher une première image j'utilise le code :
Sheets("Feuil2").Select
ActiveSheet.Shapes.Range(Array("Picture 9")).Select
Selection.Copy
Sheets("Feuil1").Select
Range("I4").Select
ActiveSheet.Paste
Range("H14").Select
Mon problème arrive lorsque je désire afficher une autre image., car le nom de la Picture change à chaque fois.
Existe t- il une solution pour renommer les images et pouvoir l'effacer avant de la remplacer par une autre quelque soit l'image affichée ?
Pour complément d'info j'ai créée des formes à l'intérieur des régions que j'utilise pour y associer une macro
Merci pour votre aide.
Cdlt
Philmaure
A partie d'une carte de France stockée sur la feuille1, je souhaiterai afficher des stats pour les Régions Bretagne, Normandie, Pys de loire et Centre Val de Loire et ce par département.
Lorsque je clique sur la zone Bretagne(par exemple) je voudrais faire apparaitre l'image des départements de la Bretagne stockée dans l'onglet Feuil2.
Pour afficher une première image j'utilise le code :
Sheets("Feuil2").Select
ActiveSheet.Shapes.Range(Array("Picture 9")).Select
Selection.Copy
Sheets("Feuil1").Select
Range("I4").Select
ActiveSheet.Paste
Range("H14").Select
Mon problème arrive lorsque je désire afficher une autre image., car le nom de la Picture change à chaque fois.
Existe t- il une solution pour renommer les images et pouvoir l'effacer avant de la remplacer par une autre quelque soit l'image affichée ?
Pour complément d'info j'ai créée des formes à l'intérieur des régions que j'utilise pour y associer une macro
Merci pour votre aide.
Cdlt
Philmaure