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

Yücel

XLDnaute Junior
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 !
 

Pièces jointes

  • Rappel.xlsm
    114.3 KB · Affichages: 4

job75

XLDnaute Barbatruc
Bonjour Yücel, Phil69970,

Ajoutez Exit Sub :
VB:
    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+
 

Discussions similaires

Statistiques des forums

Discussions
299 915
Messages
1 980 047
Membres
206 965
dernier inscrit
Mithanne