XL 2016 VBA - Si MsgBox s'affiche alors stopper la suite de la macro

[Yücel]

Bonjour à tous,

Ci-joint un fichier qui s'ouvre automatiquement sur l'onglet "Rappel".

Si à l'ouverture du fichier un MsgBox s'affiche, je souhaiterai que la macro s'arrête une fois tous les MsgBox affichés sans continuer la macro c'est à dire en allant sur l'onglet "IMP. & ENC."

Et au contraire, si à l'ouverture du fichier il n'y a pas de MsgBox qui s'affiche, je souhaiterai alors que la macro se termine en allant sur l'onglet "IMP. & ENC."

Je vous en remercie d'avance !

 

[Phil69970]

Bonjour @Yücel

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[job75]

Bonjour Yücel, Phil69970,

Ajoutez Exit Sub :

    If releve1 = "0" Then
        MsgBox "    Le  relevé  Bancaire  " & Valeur & "  :" & Chr(10) & " " & Chr(10) & "    LCL  " & Chr(10) & " " & Chr(10) & "", vbCritical, ""
        Exit Sub
    End If

Même chose avec le test sur releve2.

A+

 

[Yücel]

Bonjour @Phil69970 , Bonjour job75,

Encore une fois un grand Merci à Excel Downloads et bien sur à tous les deux !

Le fichier de @Phil69970 fonctionne à merveille, je n'ai donc pas essayé celui de job75.

Je vous souhaite une excellente journée à vous !