valider automatiquement MsgBox

Lord Brett Sinclair · 3 Novembre 2010

Bonjour,

J'ai créé une trentaine de macro différentes qui doivent rester indépendantes les une des autres.
à la fin de chacune d'elle j'ai demandé qu'il apparaisse un message indiquant que tout était terminé.

maintenant je voudrais créer une ultime macro pour faire tourner les trentes à la suite.

Code:

Application.DisplayAlerts = False
Application.Run "blabla.xls'!macro1"
Application.Run "blabla.xls'!macro2"

Je voudrais que cette macro valide automatiquement les messages box. Mais voilà, dans mes recherches je n'ai trouvé que

Code:

Application.DisplayAlerts = False

qui n'est pas le bon code

kjin · 3 Novembre 2010

Re : valider automatiquement MsgBox

Bonjour,
Je ne vois qu'une solution, mettre un drapeau dans chaque macro et tester la valeur du drapeau pour afficher ou non la msgbox

Code:

Public flag As Boolean
Sub coucou1()
If Not flag Then MsgBox "coucou1"
End Sub

Sub coucou2()
If Not flag Then MsgBox "coucou2"
End Sub

Sub affcoucou()
flag = True
coucou1
coucou2
flag = False
End Sub

A+
kjin

valider automatiquement MsgBox

Lord Brett Sinclair

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

Discussions similaires