Stopper macro initiale

bonjour tout le monde,

petite question:

dans mon fichier j'ai une macro qui à un moment donner fait appel a une autre macro contenu dans le même module.

existe il une commande qui permette de stopper la macro initiale en fonction d'un évènement ( un if ....) contenu dans la seconde macro qui est appelé via un : call ?

merci d'avance de vos lumières .

Salut,

C'est un peu succins comme information.

Tu dois transformer la seconde macro en fonction et tester le résultat quel renvoie dans la première macro.

Public Function IsExistsDirectory(ByVal Path As String) As Boolean
    IsExistsDirectory = (Dir(Path, vbDirectory) > vbNullString)
End Function

Public Sub FirstMacro()
'...
'...
'...
If IsExistsDirectory = False Then Exit Sub
'...
'...
'...
End Sub

Bonjour à tous,

tu peux aussi faire avec une variable globale :

Dim stopMacro As Boolean

Sub macro1()
    macro2
    If stopMacro Then
        MsgBox "on stoppe": Exit Sub
    Else
        MsgBox "on continue"
    End If
End Sub

Sub macro2()
    If MsgBox("Continuer ?", vbYesNo) = vbYes Then stopMacro = False Else stopMacro = True
End Sub

eric

merci de vos propositions

je n'arrivais pas a faire ce que je voulais du coup j'ai scindé mon code en plusieurs et 'utilise des call pour arriver a mes fins.

merci a vous.

Re,

'utilise des call pour arriver a mes fins.

Les Call sont obsolètes, juste utiliser pour la compatibilité avec les anciennes versions. tu peux les virer.

jean paul ,

par quoi je peux remplacer les call ?

Bonjour à tous,

par quoi je peux remplacer les call ?

Par rien, si tu as un fonction par exemple : GetFullPath tu l'appelles directement exemple :

Dim MyPath As String
MyPath = GetFullPath

'Call CopyRange
CopyRange

Pour ma par je prends pour habitude de préfixer le module qui contient la fonction ou procédure exemple :

Dim MyPath As String
MyPath = Module1.GetFullPath

Si la fonction est dans le module 1

Cela te permet aussi d'avoir l'écriture intuitive exemple : Ici tu as les procédures qui font partie du module TabsManagement