Lancer une Macro d'une autre feuille

[MisterT]

J'aimerais bien connaître la façon de "Lancer une Macro d'une autre feuille";

Par exemple, en étant sur la Sheets("WELCOME"), je veux lancer une Macro qui s'exécutera dans la Sheets("Feuille Calcul") tout en restant avec la Sheets("WELCOME") à l'écran.

Je le fais actuellement en faisant un Select de la Sheets("Feuille Calcul") puis lancer la Macro puis un Select de la Sheets("WELCOME") pour y revenir sauf que ceci fait un Flash du fait de sauter d'une feuille à l'autre...

Private Sub CommandButton1_Click()
    Sheets("Feuille Calcul").Select
    Application.Run "'Aide Forum_USERFORM + % - Copie.xls'!Macro_Tension_globale"
    Sheets("WELCOME").Select
    End If
End Sub

Merci à l'avance à celui qui m'informera !

MisterT

 

[Guest]

Re : Lancer une Macro d'une autre feuille

Bonsoir,

Si j'ai bien compris,

Tu mets dan un module:

Public LaMacro()
   Application.Run "'Aide Forum_USERFORM + % - Copie.xls'!Macro_Tension_globale"
End Sub

Et dans le code de tes boutons:

Private Sub CommandButton1_Click()
    LaMacro
End Sub

A+

 

[pascal21]

Re : Lancer une Macro d'une autre feuille

bonsoir Mister T, Hasco

Private Sub CommandButton1_Click()
   [COLOR="red"] With Sheets("Feuille Calcul")[/COLOR]
    Application.Run "'Aide Forum_USERFORM + % - Copie.xls'!Macro_Tension_globale"
  
[COLOR="Red"]end with[/COLOR]
End Sub

et comme ça , ça devrait fonctionner non?

 

[MisterT]

Re : Lancer une Macro d'une autre feuille

Merci à vous Hasco et Pascal21 !

J'ai essayé la suggestion de Hasco et il y a eu le message d'erreur "erreur de compilation. Instruction incorrecte à l'extérieure d'une procédure" exactement sur le texte que j'ai mis en Bold rouge ci-bas:

Public Tension_globale()
Application.Run "'USERFORM_TopNotch_V.02.xls'!Macro_Tension_globale"
End Sub

-----------------------
Pour ce qui est de la suggestion de pascal21 et il y a eu le message d'erreur "Référence non valide" dans une ligne de la macro lancée, j'ai mis cette ligne en Bold rouge dans cette Macro ci-bas;

Sub Macro_Tension_globale()
Range("E30").GoalSeek Goal:=Range("N4"), ChangingCell:=Range("O4")
End Sub

-----------------------

Voilà, avez-vous une belle solution à cela ?

Merci pour votre temps et connaissances !!!

MisterT

 

[MisterT]

Re : Lancer une Macro d'une autre feuille

Bonjour Hasco et pascal21 !

J'ai eu la solution par Jean-Marcel, voici sa réponse et solution;

En début de procédure tu mets
application.screenupdating=false

et en fin de procédure ( diront les puristes) mais cela n'est pas obligatoiore:

application.screenupdating=true

Merci à vous pour l'intérêt porté pour m'aider !!!

Bonne journée, ici du moins au Québec, Canada c'est le jour et il fait -22 Celcius

MisterT