Macro Bouton

sharkantipav · 19 Août 2013

Bonjour J;ai fait 4 petite macro qui me cree certain fichier.
Jai fait un userform avec 4 case a cocher (une pour chque macro) et un bouton executer les macros cochees.
Je ne sais pas comment assigner chaque macro a une checkbox et dire au bouton dexecuter uniquement les macro selectionnees.
Merci bcp

Pierrot93 · 19 Août 2013

Re : Macro Bouton

Bonjour,

essaye ceci, au préalable indique dans la propriété "tag" de chaque "checkbox" le nom de la macro associée :

Code:

Option Explicit
Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "CheckBox" Then If c Then Application.Run c.Tag
Next c
End Sub

bon après midi
@+

sharkantipav · 19 Août 2013

Re : Macro Bouton

Merci bcp ca marche tres bien!!!
J'ai une autre question... J'ai une combobox dans laquelle il ya plusieurs item qui sont du texte.
Suivant certaines valeur de la combobox je veux quil maffichent 2 options button> Jai ecrit le code suivant
If Client.Value = "XXXX" Then
D.Visible = True
V.Visible = True
Else
D.Visible = False
V.Visible = False

Celui ci compile, mais rien ne saffiche qd je selectionne XXXX ds le menu deroulant, les bouton ne s'affiche pas.
Je pense que .Value n'est pas appropie car la valeur est du texte.... mais je n'ai aucune par quoi le remplacer

JCGL · 19 Août 2013

Re : Macro Bouton

Bonjour à tous,

Peut-être :

If Client.Text

Mais sans fichier pas facile de tester...

A+ à tous

sharkantipav · 19 Août 2013

Re : Macro Bouton

Merci
Il fallait creer une nouvelle sub Client_Change

Macro Bouton

sharkantipav

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

sharkantipav

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

sharkantipav

XLDnaute Occasionnel

Discussions similaires

Macro Bouton

sharkantipav

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

sharkantipav

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

sharkantipav

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency