Tester si une macro est en cours d execution

Bonjour helpvb,

Qu'on ne trompe pas sur mes propos, quand je dis que la question est un non sens, je ne dis pas que la question n'est pas intéressante.

Je reste sur ma position, faute de contre exemple. Mieux qu'un grand discours, un petit exemple qui consiste à programmer une action dans deux événements (déclenchés nécessairement par utilisateur), dont un contient une boucle d'attente de 5 secondes pour simuler donc un code qui s'exécute. Que soit une boucle d'attente ou un vrai code, cela ne change donc rien. On peut donc constater que le déclenchement des événement ne peuvent pas être simultannées. Ce qui justifie mes premiers propos : "donc quand une macro est en cours d'exécution, elle gèle le reste, il devient impossible de tester si la macro est en cours"

=

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "je sauve"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "je change... et j'attend 5 secondes... Faites une autre action !"
t = Timer
Do
Loop Until Timer - t > 5
End Sub

=

A chaque changement de cellule SheetSelectionChange se déclenche avec un message et attend 5 secondes. Si on essait de sauvegarder pendant l'exécution ce qui déclenche BeforeSave, rien ne se produit. On n'a pas la main... Néanmoins, l'action reste en "mémoire tampon", et s'active juste après la première.

Amicalement,
Us.