Interdire lancement macro si une macro est déjà en cours

[davidm]

Bonjour,

Je souhaiterais savoir si il est possible d’interdire le lancement d’une macro si une macro est déjà en cours.

Par exemple : macro évènementielle "change"

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox ("Essai")
Sheets("Feuil1").Range("A1") = "essai"
End Sub

Dans le code ci-dessus, le fait de modifier la valeur de la case A1 relance la macro (un certain nombre de fois, puis s’arrête).

Merci d’avance pour votre aide

David

 

[Pierrot93]

Re : Interdire lancement macro si une macro est déjà en cours

Bonjour,

regarde peut etre ceci

Application.EnableEvents = False
On Error GoTo fin
 MsgBox ("Essai")
 Sheets("Feuil1").Range("A1") = "essai"
fin:
Application.EnableEvents = True
  End Sub

bon après midi
@+

 

[Robert]

Re : Interdire lancement macro si une macro est déjà en cours

Bonjour David, Pierrot, bonjour le forum,

Le problème avec Application.EnableEvents est que si le code plante alors qu'il a été définit à False, les macros événementielles de fonctionnent plus. Pour éviter ça je préfère l'utilisation d'une variable boléenne :

Private test As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If test = True Then test = False: Exit Sub
test = True
MsgBox ("Essai")
Sheets("Feuil1").Range("A1") = "essai"
End Sub

 

[Pierrot93]

Re : Interdire lancement macro si une macro est déjà en cours

Re, bonjour Robert🙂

Le problème avec Application.EnableEvents est que si le code plante alors qu'il a été définit à False

Aarf oui... c'est pour éviter cela que j'ai placé une gestion d'erreur....

 

[davidm]

Re : Interdire lancement macro si une macro est déjà en cours

Bonsoir,

Merci a vous deux, cela fonctionne parfaitement.