Court-circuiter une macro événementielle

[Magic_Doctor]

Bonjour,

J'ai affaire à une bizarrerie.
Il se trouve que l'exécution d'une macro échoue à cause d'une macro événementielle.
La macro se trouve dans un module global.
la macro événementielle se trouve, elle, dans un module de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro événementielle déclenchée après chaque saisie de données dans la liste "ListeItems1"
Application.ScreenUpdating = False
If Not Intersect(Target, [ListeItems1]) Is Nothing Then [ListeItems3] = [ListeItems2].Value
CheckItems
Application.ScreenUpdating = False
End Sub

Si, avant de déclencher la macro je mets CheckItems en Rem (précédé de '), la macro fonctionne.

Quelqu'un aurait-il une idée pour résoudre ce problème en mettant, par exemple, "en veilleuse" la macro événementielle lors de l'exécution de la macro ?

Merci d'avance pour toute aide.

 

[Efgé]

Re : Court-circuiter une macro événementielle

Bonjour Magic_Doctor
Pour arréter la macro ecennementielle il faut utiliser EnableEvents.
Mais en cas de plantage il y a un risque de se retrouver sans evennements sur la feuille.
Donc il faut metre un garde-fou:

Sub macro_principale()
On Error GoTo Fin
Application.EnableEvents = False
'Le code
Fin:
Application.EnableEvents = True
End Sub

Cordialement

 

[Magic_Doctor]

Re : Court-circuiter une macro événementielle

Bonjour Efgé,

Pfffff, et bien un grand merci !
Je commençais à disjoncter !!!!

Une petite question si tu me lis.
Le code est en fait uniquement une boucle. Le On Error GoTo Fin se met avant ou à l'intérieur et en début de boucle ? Puisque s'il y a plantage ce ne pourrait être que lors de l'exécution de la boucle.

 

[mutzik]

Re : Court-circuiter une macro événementielle

Salut,

en début de sub
s'il y a une erreur d'execution dans le code qui suit cette instruction (boucle ou pas) il saute à Fin:

 

[Efgé]

Re : Court-circuiter une macro événementielle

Re
Juste pour saluer Bertrand 🙂 que je n'ai pas souvent l'occasion de croiser.
Cordialement