valider automatiquement MsgBox

[Lord Brett Sinclair]

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.

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

Application.DisplayAlerts = False

qui n'est pas le bon code

 

[kjin]

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

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