[EXCEL - VBA] Plusieurs boutons = une fonction

Bonjour.... Voila mon problème du jour ! lol (plutôt ce ces jours)

J'ai une forme avec des boutons.. tout plein de boutons !!!

J'aimerais en cliquant sur n'importe lequel, que la même fonction soit appelée, et que dans cette fonction je puisse reconnaitre de quel bouton cela vient !!! Facile quoi ! :lol:

(je ne veux pas creer un truc du genre

Code:

---

1 2 3 4 5

Private Sub wp_reset_5_Click() ... ... End Sub

---

pour chaque bouton... c'est lourd et c'est moche!!

Qq a t'il une petite piste que je puisse explorer... juste qq mots, après je cherche!!!
(est ce que faire une collection de mes boutons serait une piste ?)

Voila.. Merci

bonjour,
tu peux faire qqch comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() maMacro End Sub Private Sub CommandButton2_Click() maMacro End Sub ................ Private Sub CommandButton20_Click() maMacro End Sub   Private Sub maMacro() MsgBox Me.ActiveControl.Name End Sub

---

cordialement

Merci du conseil, mais c'est ce que je ne veux pas faire !!! :roll:


Faire ca pour chaque bouton.. environ 30.... me semble vraiment lourd !!!

J'aimerais trouver quelque chose de plus compact !!! :mouarf:

qq a t'il une autre idée ?

Merchhiiii

bonjour,

Fais une recherche du coté des Modules de classe.

cordialement

Ok, j'ai réussi a faire quelque chose.... mais pas sans peine vu mon niveau :aie:

Avec les modules de classe... Merci pour le conseil... c'est génial d'ailleurs !!! :king:

Bon d'accord j'ai encore du mal a m'y retrouver.....

Voila mon code pour ceux que cela intéresse:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

'Dans mon form Private Sub UserForm_Initialize()   Dim Objet_control As Control Set Collect_control = New Collection For Each Objet_control In Me.Controls If TypeOf Objet_control Is MSForms.CommandButton Then If Left(Objet_control.Name, 9) = "wp_reset_" Then Collect_control.Add New Classe_Bouton_wp_reset Set Collect_control(Collect_control.Count).control_numero = Objet_control End If End If Next ---------------------------------------------------------------------- 'Dans un module classique Public Collect_control As Collection     '---------------------------------------------------------------------- 'Dans un module de classe Nomme comme il se doit (voir code dans form) ' ici nom = Classe_Bouton_wp_reset   Public WithEvents control_numero As CommandButton 'Detecter un Evenement de type click Private Sub control_numero_click()   'Exemple ici pour récupérer une information dans le tag du control MsgBox "Bouton n " & Me.control_numero.Tag   End If End Sub

---

Ya peut être des choses a améliorer, mais c'est n'est pas de mon niveau... mais je suis preneur.. :lol:

Voila.. encore merci pour la piste !!!!!!