Quitter la macro si une condition est vrai

[fredovba]

Bonjour,
J'utilise une macro qui me permet de mettre à jour un fichier avec les infos d'un autre fichier
Cette macro est architecturée de cette façon:
Sub ProgrammePrincipaleBanque()
Call TesterMiseAJour 'test pour savoir si la mise à jour a déjà été faite
Call copierColler 'mise à jour du fichier
call xxxx 'plusieurs autres fonctions pour la mise en forme
calll xxxx 'etc....
End sub

je souhaite dans le début de cette macro tester si la mise à jour a déjà été faite.
Je compare donc une cellule dans les deux fichiers.

sub TesterMiseAJour
If cellule1 = cellule2 Then
MsgBox "La mise à jour à déjà été effectué avec cette version de fichier Import.xls"
Exit Sub 'je pensais pouvoir quitter la macro avec cette fonction
End If

End Sub

Je souhaite donc stopper la macro cad ne pas l'effectuer en entier si la mise à jour à déjà été faite mais je n'y arrive pas, une fois le test de mise à jour effectué et le message affiché la macro réalise les autres étapes.
Pouvez vous m'aider ?

 

[soenda]

Re : Quitter la macro si une condition est vrai

Bonsoir le fil, fredocba

Pour terminer le programme, remplace Exit Sub par End

Sub TesterMiseAJour()
    If cellule1 = cellule2 Then MsgBox "fin du programme"
    [B][COLOR=red]End[/COLOR][/B]
End Sub

A plus

 

[fredovba]

Re : Quitter la macro si une condition est vrai

merci, ça fonctionne