récupérer le nom du control activé

[remy25]

Bonjour,

Cela fait plusieurs jours que je galère sur un petit problème. Voilà ce que je souhaite faire:
j'ai une feuille Excel avec des données en colonnes. J'ai créé un togglebouton sous chacunes d'entre elles, qui me permet de sélectionner les données correspondantes au bouton.
pour éviter d'écrire le même code pour chaque bouton, je veux créer une macro qui fasse ceci au déclenchement :

détection togglebouton cliqué
n = numéro du togglebouton cliqué
sélection données colonne n

Merci d'avance.

rémy de Besak'

PS:j'ai joint un fichier exemple. [file name=Selection_donnees.zip size=10831]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Selection_donnees.zip[/file]

 

[myDearFriend!]

Bonsoir remy25 (encore un franc-comtois et Bisontin de surcroît !)

Tu trouveras ci-joint ton exemple modifié.

J'ai utilisé les procédures suivantes :

Dans le module de la feuille

Private Sub ToggleButton1_Click()
      Traitement 1, ToggleButton1.Value
End Sub

Private Sub ToggleButton2_Click()
      Traitement 2, ToggleButton2.Value
End Sub

Private Sub ToggleButton3_Click()
      Traitement 3, ToggleButton3.Value
End Sub

Dans un module de code général

Public Sub Traitement(N As Byte, Valeur As Boolean)
      With ActiveSheet
            .Range(.Cells(1, N), .Cells(10, N)).Interior.ColorIndex = IIf(Valeur, 15, xlNone)
      End With
End Sub

Cordialement, [file name=Selection_donnees_20050524233117.zip size=11806]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Selection_donnees_20050524233117.zip[/file]

 

[rémy25]

eh bien, quelle rapidité !

Merci pour ton aide, c'est exactement ce qu'il me fallait.

A+

Rémy de besak'