Copier la valeur d'un CommandBoutton dans une cellule

Bonjour à tous,

J'ai 16 CommandBouttons sur la feuil2.

Lorsque je clique sur un l'un des 16 boutons, je voudrai que le nom de ce bouton (caption) soit affiché dans la feuil3 cellule A1.

Merci d'avance pour votre aide.

Amicalement

Samm

Bonjour,

Il faut que ce soit des boutons ActiveX

Private Sub CommandButton1_Click()
    [Feuil3!A1] = CommandButton1.Caption
End Sub

Utilise plutôt une listbox, ça tévitera de faire 16 sub...

eric

Bonjour,

Exemple pour un bouton

Code à insérer pour chaque bouton :

Private Sub CommandButton1_Click()
Sheets("feuil3").Range("A1").Value = Me.CommandButton1.Caption
End Sub

Changer CommandButton1 par le name de tes différents boutons

J'espère que cela te sera utile

Merci à vous deux pour vos réponses.

Grace à vous j'avance.

Amicalement,

Samm