Lien entre bouton et cellule sur laquelle il est placé ?

Bonjour,

J'ai des boutons situés sur des cellules.

Le bouton 1 affiche le texte "1" et est situé sur une cellule contenant "1"

Le bouton 2 affiche le texte "2" et est situé sur une cellule contenant "2"

Etc...

Je voudrais créer une macro qui, lorsque je clique sur un bouton, aille reporter son nombre dans un cellule définie (toujours la même, quel que soit le bouton).

Par exemple :

si je clique sur le bouton 5 : "5" s'affiche dans la cellule "I2"

si je clique sur le bouton 14 : "14" s'affiche dans la cellule "I2"

si je clique sur le bouton 27 : "27" s'affiche dans la cellule "I2"

Etc...

Je sais faire compliqué, c'est à dire créer une macro par bouton (il y en a 60), mais j'imagine qu'il est possible de ne créer qu'une seule macro pour tous les boutons, et alléger considérablement mon fichier !

Pouvez-vous m'aider ?

Par avance, un grand merci !!

Cordialement,

Laure

Bonjour,

Si tes boutons sont bien numérotés Bouton 1 à x, que x ne va pas au-delà de 99, tu peux affecter la macro ci-dessous à tous tes boutons :

Sub InscrireValeurBouton()
    Dim n%
    n = Val(Right(Application.Caller, 2))
    Range("I2").Value = n
End Sub

pour inscrire en I2 le numéro du bouton cliqué.

Cordialement

edit : tes boutons doivent être des boutons de formulaire (et non des activeX).

Merci beaucoup, ça fonctionne parfaitement.

C'est exactement ce dont j'avais besoin !!

Merci !!!!

Laure