Run Macro

[gg13]

Bonsoir le forum.
Juste une petite question pour les connaisseurs.
Dans un module on peut activer une macro depuis une autre avec
Application.Run macro:="Bidon"
Dans un userform pour activer un bouton style CommandButton1_Click
la syntaxe Run macro:="CommandButton1_Click()" ne fonctionne pas.
Comment écrire cette manip.
Merci de vos lumières.
gg13

 

[Etienne2323]

Re : Run Macro

Salut gg13,
essaye ceci :

Application.Run Sheets("Ta feuille").CodeName & ".CommandButton1_Click"

Cordialement,

Étienne

 

[gg13]

Re : Run Macro

Merci Etienne
Mais les deux boutons sont sur un userform et les Private Sub CommandButton1_Click() et Private Sub CommandButton2_Click() sont dans le code du userform.(le bouton 2 doit lancer la macro du bouton 1 (+ d'autre actions)
gg13

 

[Etienne2323]

Re : Run Macro

Salut gg13,
personnellement, je ne sais pas comment lancer un commandbutton depuis un autre commandbutton. Par contre, je te propose une situation alternative.

Plutôt que de mettre ton code dans les Private Sub des commandbutton, pourquoi tu ne fais pas seulement appeler des macros depuis tes commandbutton et ainsi pouvoir modifier tes appels comme tu veux.

Par exemple :

Private Sub CommandButton1_Click()

Contenu_CommandButton1
Contenu_CommandButton2
Autres_Actions

End Sub

Private Sub CommandButton2_Click()

Contenu_CommandButton2
Contenu_CommandButton1
Autres_Actions

End Sub

Sub Contenu_CommandButton1()
'Du Code
End Sub

Sub Contenu_CommandButton2()
'Du Code
End Sub

Sub Autres_Actions()
'Du Code
End Sub

Donc, en cliquant sur le commandbutton1 par exemple, tu peux lancer une macro nommée Contenu_CommandButton1 qui ferait l'action que tu souhaites qui soit réalisée en cliquant sur ce bouton, et ensuite appeler toutes les autres macros que tu souhaites.

Bref, ce n'est qu'une piste de solution,

Bonne continuité,

Étienne
En espérant que cette piste puisse t'aider.

 

[Pierrot93]

Re : Run Macro

Bonjour gg, Etienne,

ceci fonctionne chez moi, code placé dans le module de l'usf où se trouvent les boutons :

Private Sub CommandButton1_Click()
'ton code
End Sub
Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

bonne journée
@+

 

[gg13]

Re : Run Macro

Bonjour Etienne et Pierro.
Merci de votre aide.
Etienne : j'ai déjà utilisé ta méthode mais il faut créer une macro dans un module et non dans le USF.(mais elle fonctionne).
Pierrot : ta méthode me convient trés bien mais ne fonctionne pas chez moi (?)

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

Quand je valide j'obtiens un message erreur complilation , attendu :=
Dommage!!!
Merci encore et bonne journée à tous.
gg13

 

[Pierrot93]

Re : Run Macro

Re,

ceci fonctionne chez moi, code placé dans le module de l'usf où se trouvent les boutons :

A voir comment et où tu as placé le code....

 

[gg13]

Re : Run Macro

Pierro
Les deux boutons sont sur la même page d'un USF multipage et donc les Private Sub se suivent sur le listing.
gg13

 

[Pierrot93]

Re : Run Macro

Re,

un exemple ci-joint :

 

[gg13]

Re : Run Macro

Pierro
OK ton exemple marche mais la même manip dans mon USF ne marche pas.
gg13

 

[Pierrot93]

Re : Run Macro

Re,

sans plus d'info, difficile de t'en dire plus....

 

[gg13]

Re : Run Macro

Pierro
Je te remercie de ton aide.
Je pense utiliser une autre solution en combinant des conditions dans la même
macro.C'est plus lourd mais ça marche.
gg13

 

[gg13]

Re : Run Macro

Pierro
Ta manip est bonne,en fait j'avais utilisé copier coller pour l'écriture.
Mais il faut supprimer () à la fin et la commande fonctionne .
Merci
gg13