Récupérer index bouton cliqué

Bonjour,

Je vous sollicite car j'aimerais savoir s'il existe un moyen de récupérer l'index de la ligne et de la colonne d'un bouton sur lequel on aurait cliqué.

Ma problématique est la suivante :
Je dispose de :
Sub Ajoute_boutons() 'Ajoute trois boutons à la cellule sélectionnée

Ces boutons sont liés à d'autres procédures, qui sont censées colorier la cellule en rouge, orange ou vert en fonction du bouton cliqué.

Mon problème est que je ne sais pas comment récupérer le bouton sur lequel on a cliqué, afin de savoir quelle est la bonne cellule à colorier

J'arrive bien à rentrer dans la procédure Sub Colorie_vert() par exemple, mais je ne sais pas quelle est la cellule à colorier

Merci d'avance à qui pourra m'aider

Salut tenebriox et le forum
Regarde si Application.Caller peut résoudre ton problème. Sinon, essaie du coté de Bouton.Topleftcell
A+

super, merci bien ! :)

Pour ceux que ça intéresseraient d'avoir le détail :

Code:

---

1 2 3

Dim Bouton As Shape Set Bouton = Worksheets(1).Shapes(Application.Caller) MsgBox Bouton.TopLeftCell.Address(0, 0)

---