XL 2013 Arreter une macro spécifique a partir d'une autre macro

FlamXYZ

XLDnaute Nouveau
Salut la team!

s'il vous plaît, j'ai appelé l'exécution d'une macro Y a partir d'une macro X. Dans la macro X, j'aimerais arrêter l'execution des Macros X et Y.
y'aurait il un code spécifique a cela ? comment faire svp ?

Merci d'avance
 
Solution
Bonsoir Flam,
Le plus simple est de créer un Flag en Public, déclaré en boolean.
Au départ sa valeur vaut False. Il est mis à True par la MacroX.
Dans les macros X et Y vous commencez par faire, si Flag=True alors on sort.
VB:
Public Flag As Boolean
Sub MacroX()
    Flag = True
    If Flag = True Then Exit Sub
    Call MacroY
    ' Suite de la macro
End Sub
Sub MacroY()
    If Flag = True Then Exit Sub
    ' Suite de la macro
End Sub
A vous de gérer ça correctement pour que les macros s'exécutent et s'inhibent quand vous voulez.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Flam,
Le plus simple est de créer un Flag en Public, déclaré en boolean.
Au départ sa valeur vaut False. Il est mis à True par la MacroX.
Dans les macros X et Y vous commencez par faire, si Flag=True alors on sort.
VB:
Public Flag As Boolean
Sub MacroX()
    Flag = True
    If Flag = True Then Exit Sub
    Call MacroY
    ' Suite de la macro
End Sub
Sub MacroY()
    If Flag = True Then Exit Sub
    ' Suite de la macro
End Sub
A vous de gérer ça correctement pour que les macros s'exécutent et s'inhibent quand vous voulez.
 

FlamXYZ

XLDnaute Nouveau
Bonsoir Flam,
Le plus simple est de créer un Flag en Public, déclaré en boolean.
Au départ sa valeur vaut False. Il est mis à True par la MacroX.
Dans les macros X et Y vous commencez par faire, si Flag=True alors on sort.
VB:
Public Flag As Boolean
Sub MacroX()
    Flag = True
    If Flag = True Then Exit Sub
    Call MacroY
    ' Suite de la macro
End Sub
Sub MacroY()
    If Flag = True Then Exit Sub
    ' Suite de la macro
End Sub
A vous de gérer ça correctement pour que les macros s'exécutent et s'inhibent quand vous voulez.
La classe !! Tres astucieux !! Merci beaucoup Sylvanu. Je vais gérer comme ca.
 

Discussions similaires

Statistiques des forums

Discussions
312 102
Messages
2 085 302
Membres
102 857
dernier inscrit
Nony1931