une même macro pour plusieurs boutons

soenda

XLDnaute Accro

• 2 Décembre 2009

• #2

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).

Cliquez pour agrandir...

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

A plus

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 2 Décembre 2009

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 2 Décembre 2009

• #4

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 ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Décembre 2009

• #5

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
@+

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 2 Décembre 2009

• #6

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 !?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Décembre 2009

• #7

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/

@+

 

Vote positif 0 Vote négatif

L

loic_nl

XLDnaute Nouveau

• 2 Décembre 2009

• #8

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.

 

Vote positif 0 Vote négatif

L

loic_nl

XLDnaute Nouveau

• 2 Décembre 2009

• #9

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.

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 2 Décembre 2009

• #10

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 :

Code:

Feuil3.[A1:A50] = False

A plus

 

Pièces jointes

• Capturer.JPG

  26.4 KB · Affichages: 118
• Capturer.JPG

  26.4 KB · Affichages: 118
• Capturer.JPG

  26.4 KB · Affichages: 117

Vote positif 0 Vote négatif