Nom d'un commandbutton

Version imprimable

12/02/2007, 14h54
alex_95

Nom d'un commandbutton

Bonjour,

Voila, j'ai deja reussi à le faire mais aujourd'hui, c'est sans succès...

En effet, je veux connaitre le nom du CommandButton sur lequel je clique (ce dernier n'est pas sur un Userform mais sur une feuille excel)

J ai fait :

Code:

nom_bouton = Activecontrol.name

Mais j obtiens un message d'erreur : Objet requis.
J ai beau bidouiller je n'arrive pas à m en sortir.

Qqn à 1 idée ?

Merci d avance
12/02/2007, 14h59
zazaraignée

Salut

Soit tu mets le code directement dans l'événement Click du bouton (ou encore l'événement GotFocus), soit tu interroge la collection des objets Shapes pour savoir lequel correspond à ActiveControl et tu récupère la propriété Name de l'objet Shapes(indice).

Je suis en mode multitasking (je joue avec ma fiille de 4 ans), je n'ai pas le temps de tester... maintenant.
12/02/2007, 15h02
alex_95

C'est ce que j ai fait, jusque la j ai mis le code :

Code:

nom_bouton = activecontrol.name

dans l'evenement Click du CommandButton...

Ce qui me donne le message suivant : "Objet requis"

Je n'ai pas testé autre chose qu'avec l'événement Click.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Dim boutonActif As String
 
Private Sub Bouton1_Click()
    boutonActif = "Bouton1"
    ActiveCell.Value = boutonActif
    ActiveCell.Offset(1, 0).Select
End Sub
 
Private Sub Bouton2_Click()
    boutonActif = "Bouton2"
    ActiveCell.Value = boutonActif
    ActiveCell.Offset(1, 0).Select
End Sub
 
Private Sub Bouton3_Click()
    boutonActif = "Bouton3"
    ActiveCell.Value = boutonActif
    ActiveCell.Offset(1, 0).Select
End Sub

Laborieux!

13/02/2007, 12h23
AlainTech

Peut-être vois-je les choses de manière trop simpliste mais il me semble que si on est dans l'événement lié à un contrôle, on connait le nom de ce contrôle.

Je me trompe?
13/02/2007, 15h24
zazaraignée

Tout à fait Alain. C'est d'ailleurs ce que mon petit bout de code démontre. Mais à l'usage, j'ai remarqué que le focus ne reste pas sur le bouton et retourne illico sur la cellule sélectionnée avant le clic.

Je me demande si alex ne cherche pas à garder une historique des actions de l'utilisateurs - sur les clics des boutons à tout le moins. Peut-être devrait il nous expliquer ce qu'il cherche au juste.