Quitter appli selon MSGBOX

herve62 · 29 Août 2014

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 · 29 Août 2014

Re : Quitter appli selon MSGBOX

Bonjour Hervé62

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

Code:

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

Code:

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+

Quitter appli selon MSGBOX

herve62

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Discussions similaires