Une image à superposer

Bonjour,

j'ai une grande image "Fond" associée à une macro "Proc_Fond"
J'ai une petite image "Jeton" associée à une macro "Proc_Jeton"
Je veux placer "Jeton" sur "Fond" en son milieu avec :

Code:

---

1 2 3

Sheets("Feuil1").Shapes("Jeton").Top = yyy Sheets("Feuil1").Shapes("Jeton").Left = xxx

---

Comme vous l'imaginez, "Jeton" se place bien au milieu de "Fond" mais derrière.

Ce que je veux c'est que Jeton soit visible au dessus de "Fond" et que :
- si on clique sur "Fond" en dehors de "Jeton" ce soit la macro "Proc_Fond" qui se déclenche et
- si on clique sur "Jeton" ce soit la macro "Proc_Jeton" qui se déclenche

J'ai cherché sur Internet mais n'ai pas compris les exemples proposés.

Cordialement

Un coup d'enregistreur automatique de macro donne la réponse en 10 s :

Code:

---

Sheets("Feuil1").Shapes("Jeton").ZOrder msoBringToFront

---

Lire ça : https://docs.microsoft.com/fr-fr/off...l.shape.zorder

Merci Menhir, vous êtes super.
Ca fonctionne parfaitement . . . évidemment.