Quitter appli selon MSGBOX

[herve62]

Bonjour
Je connais APPLICATION.QUIT
mais parfois selon le choix de MSGBOX ( VbCancel) on ne sort pas
si l'on va en 'DEBUG" Pas à pas ... ca marche
ex

Rep1 = MsgBox(" Selectionnez votre fichier ", vbOKCancel)
If Rep1 = vbCancel Then Application.Quit

Ca sans un USF INITIALIZE ..... ca va pas !!
Comment contourner ?

 

[Compte Supprimé 979]

Re : Quitter appli selon MSGBOX

Bonjour Hervé62

Tout simple, dans un module tu crées une variable public

Option Explicit


' Variable publique booléenne pour sortie
Public FlgQuit As Boolean

Dans un module tu appelles ton USF et à la sortie, tu testes sir le FLAG est VRAI

Sub Test
  UserForm1.Show
  ' Tester si l'on doit quitter l'appli
If FlgQuit = True then Application.Quit
End Sub

Dans Ton UsF tu mets le FLAG à vrai si necessaire

A+