Discussion :

[jieffel44]

Bonjour,

J'ai un fichier comprenant plusieurs feuilles. Je gère les changements de valeurs de certaines cellules des certaines feuilles avec des évènements Worksheet_change sur chaque feuille. Jusque là ça va.

Après certaines lectures de forum, j'ai pensé gérer les modifications de certaines autres cellules ayant un impact sur plusieurs feuilles à l'aide d'un évènement Workbook_SheetChange.

Est-ce que les deux, Worksheet_Change et Workbook_SheetChange, peuvent cohabiter sans problèmes ou si ça risque de planter?

J'ai un doute!

Merci

JF

[mat955]

Bonjour,

Oui les deux événements peuvent cohabiter.
Il faut néanmoins faire très attention car c'est vite fait de rentrer dans des boucles infinies...
Sans aucune précision de ta part, c'est l'événement Worksheet_Change qui se déclenchera en premier.
Et ensuite l'événement Worksheet_SheetChange se déclenchera (sauf si l'événement Worksheet_Change modifie une cellule,auquel cas il s'appellera lui même à nouveau).

Il faut donc bien penser à "borner" les cellule qu'on veut tester en modification avec par exemple : If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

[Patrice740]

Bonjour,

Les deux évènements cohabitent naturellement, Worksheet_Change se produit avant Workbook_SheetChange
Pour éviter de rentrer dans des boucles récursives infinies, lorsque la macro modifie une cellule, il penser à désactiver les évènements :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Application.EnableEvents = False
  ' Ici le code qui modifie une cellule et provoque les 2 évènements _Change et _SheetChange
  ' ....
  Application.EnableEvents = True

Noter que ceci est vrai pour toute procédure évènementielle, lorsque le code de cette procédure provoque le même évènement qui la déclenche.

[jieffel44]

Merci Patrice et Mat pour vos réponses et désolé pour la coquille : je voulais bien sûr parler de Workbook_SheetChange!!!

Une dernière question!

Puisque WorkSheet_Change s'exécute en premier, si je désactive les évènements en entrant dans son code et que je les réactive avant d'en sortir, est-ce que WorkBook_SheetChange va se rappeller du changement de cellule qui a tout déclenché pour s'exécuter elle-aussi? J'imagine que oui; mais je pose la question juste au cas...

Merci

[Patrice740]

Puisque WorkSheet_Change s'exécute en premier, si je désactive les évènements en entrant dans son code et que je les réactive avant d'en sortir, est-ce que WorkBook_SheetChange va se rappeller du changement de cellule qui a tout déclenché pour s'exécuter elle-aussi? J'imagine que oui; mais je pose la question juste au cas...

Oui, désactiver les évènements évite qu'un nouvel évènement soit généré pendant le traitement mais ça ne supprime pas les évènements qui se sont déjà produits et qui sont en attente de traitement.
Par exemple essaies ces codes - dans le module de feuille :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
'  Application.EnableEvents = False
  If Target.Address = "$A$1" Then
    Range("B1").Value = "Ok"
  End If
  MsgBox "Cellule " & Target.Address
  Application.EnableEvents = True
End Sub

Et dans le module du classeur :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  MsgBox "Feuille " & Sh.Name & " - Cellule " & Target.Address
End Sub

Modifier A1 pour voir la chronologie des évènements.
Puis enlève l'apostrophe (commentaire) de la ligne 2 et recommence.