Private Sub CommandButton1_Click() 'je met en A1 le nom du bouton Range("A1") = Me.CommandButton1.Name 'ou 'je met en A1 le texte du bouton Range("A1") = Me.CommandButton1.Caption End Sub
Private Sub CommandButton2_Click() 'je met en A1 le nom du bouton Range("A1") = Me.CommandButton2.Name 'ou 'je met en A1 le texte affiché sur le bouton Range("A1") = Me.CommandButton2.Caption End Sub
Sub test2() Range("A1") = ActiveSheet.Shapes("Button 2").Name End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question