une même macro pour plusieurs boutons

[loic_nl]

Bonjours,
Un petit problème assez simple je pense, mais dont je ne trouve pas la solution.

J'ai une macro identique qui doit etre utilisé par plusieurs boutons (au total 51).
J'utilise des checkBox, qui vont de 1 à 51.

la macro ci-dessous:

Private Sub CheckBox1_Click()

Select Case CheckBox1.Value
Case True: CheckBox1.Caption = "C"
Case False: CheckBox1.Caption = " "
Case Else: CheckBox1.Caption = " "
End Select

If CheckBox1.Caption = "C" Then
Range("P12").Select
ActiveCell.FormulaR1C1 = "C"
End If

End Sub


Merci pour votre aide.

 

[soenda]

Re : une même macro pour plusieurs boutons

Bonjour le fil, loic nl

J'ai une macro identique qui doit-être utilisé par plusieurs boutons (au total 51).

Dans la macro que tu nous soumets, je ne vois aucune référence à ces 51 boutons ...

A plus

 

[Roland_M]

Re : une même macro pour plusieurs boutons

bonsoir

tu vas devoir en faire 50 pour le clic !
sinon c'est plus complexe avec module de classe !?
et passer le control avec tes données et le range à un seul Sub
exemple

Private Sub CheckBox1_Click()
TraiteCheckBox CheckBox1, "P12"
End Sub
Private Sub CheckBox2_Click()
TraiteCheckBox CheckBox2, "P13" ' < !? à voir
End Sub
'Private Sub CheckBox3_Click() ...

Private Sub TraiteCheckBox(CB As Control, R$)
Select Case CB.Value
  Case True: CB.Caption = "C": Range(R$).FormulaR1C1 = "C"
  Case Else: CB.Caption = " ": Range(R$) = "" ' < !? je sais pas !?
End Select
End Sub

 

[mutzik]

Re : une même macro pour plusieurs boutons

bonjour,

application.caller te renvoie le nom de l'évenement qui a déclenché la macro
Si tu y mets un chiffre en derniere position, tu peux extraire ce chiffre et l'utiliser dans une seule macro qui fonctionnera pour tous les boutons ...

 

[Pierrot93]

Re : une même macro pour plusieurs boutons

Bonjour à tous

attention, il me semble bien que pour un contrôle de la "boite à outils contrôles", application.caller renverra un message d'erreur...

bonne journée
@+

 

[Roland_M]

Re : une même macro pour plusieurs boutons

bonjour

effectivement Application.Caller ça ne marche pas !
il garde le premier appel !
exemple le nom du bouton que a lancé un userform
mais pas ses contrôles !?
ou clic une page (de multipage) pas quand clic ses contrôles !?
j'avais déjà essayé car confronté à ce genre de problème (ctrl en nombtre)
que l'on peut simplifié par un module de classe et événement !
si je retrouve mon exemple je le fais parvenir !?

 

[Pierrot93]

Re : une même macro pour plusieurs boutons

Re,

un exemple ici, avec module de classe :

https://www.excel-downloads.com/threads/checkbox-caption.123330/

@+

 

[loic_nl]

Re : une même macro pour plusieurs boutons

Salut soenda. C'est un exemple pour un bouton, que je vais répéter 51 fois.

Sinon j'ai trouvé plus simple, il faut déclarer le numéro de la box comme variable que tu fais varié de 1 à 51, plus quelque bidouillage et sa a l'air de fonctionner.

merci pour votre aide.

 

[loic_nl]

Re : une même macro pour plusieurs boutons

Sinon une autre question pour les checkBox.
J'ai 50 checkbox et aprés avoir sélectionné quelque'une, comment je peux faire pour toutes les réinitialiser.

Merci,
buen dia.
Hasta luego.
Loic.

 

[soenda]

Re : une même macro pour plusieurs boutons

Bonjour le fil, Roland, Mutzik, pierrot, loic

On peut utiliser les cellules liées (propriétés "ControlSource", pour les CheckBox), très pratique et très simple d'utilisation.

Ex: Si les 50 CheckBox sont liés à la plage Feuil3.[A1:A50],
pour mettre les 50 CheckBox à Faux, on écrit :

Feuil3.[A1:A50] = False

A plus