Evènement ToggleButton_Click avec 74 boutons

Question

Salut, petite question VBA :
Je cherche à savoir s'il n'y a pas d'autre moyen pour faire référence à un ToggleButton que son nom (ToggleButton1 par exemple) pour l'associer à l'évènement Click.
En effet, comme mon UserForm contient 74 boutons, et que j'utilise l'index de Controls pour les différencier (seule m'importe leur position relative par rapport au premier), tous mes évènements ToggleButtonXX_Click sont scrupuleusement identiques, au nom et une commande with près.
Y a-t-il un autre moyen que 73 copier-coller et 2 chiffres à modifier ???

Sub ToggleButton1_click()
With ToggleButton1
    'Mon code dont je vous fais grâce
End With
End Sub

PCPT · Answer

salut,
umm.. pure supposition (je ne touche pas à VBA)

le problème est qu'il n'y a pas de groupe de contrôles c'est bien çà?
tu ne peux pas faire une classe withevent qui te retournerait le click?
cad au départ tu attaches la togglebar à ta classe, qui reçoit chaque click et qui te renvoie un évènement Click (X) ?

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

cs_casy · Answer

Il faut que tu appelle tes boutons tous du même nom.
Ensuite tu les différencie en donnant un nombre à la propriété Index de chaque bouton (0 à 73).

Comme ça tu n'auras qu'un seul évènement click pour les 74 boutons, dans cet évènement tu auras un paramètre index qui te donnera le numéro du bouton clické.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

jrivet · Answer

>333139  casy (salut): Comme le rappelle =401740 PCPT , pas de groupe de contrôle en VBA (si Philonimbus est bien en VBA)...

@+,   Ju£i?n

mortalino · Answer

Salut Julien, salut PCPT, salut Casy,

Philonimbus :
inspire toi de ma source (et du module de classe) :
http://www.vbfrance.com/codes/EVENEMENT-MOUSEMOVE-SUR-SELECTION-CONTROLES-MEME-TYPE_37169.aspx
(dans l'exemple, l'évènement MouseMove est lié à tous mes Labels.

++

Evènement ToggleButton_Click avec 74 boutons

4 réponses

Votre réponse

Discussions similaires