Macro Bouton

[sharkantipav]

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]

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 :

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]

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]

Re : Macro Bouton

Bonjour à tous,

Peut-être :

If Client.Text

Mais sans fichier pas facile de tester...

A+ à tous

 

[sharkantipav]

Re : Macro Bouton

Merci
Il fallait creer une nouvelle sub Client_Change