Détection d'une cellule qui change

Question

J'utilise la routine ci dessous pour savoir si la cellule J39 a changé: Private Sub worksheet_change(ByVal target As Range) If target.Address = "$J$39" Then exécution d'une routine qui déplace (donc change) quelques centaines de cellule end if end sub La question: Si, chaque fois qu'une cellule change, l'on appelle cette routine, cela va prendre un temps de fou si des centaines ou des milliers de cellules se déplacent. Est ce que Excel travaille vraiment comme cela et comment éviter cela ? Merci pour vos expériences Jean-Pierre Excel 2016...

h2so4 · Accepted Answer

Dans ce cas, il faut utiliser une instruction pour désactiver la gestion des événèments et la réactiver après application.enableevents=false et application.enableevents=true donc quelque chose comme ceci Private Sub worksheet_change(ByVal target As Range) If target.Address = "$J$39" Then application.enableevents=false exécution d'une routine qui déplace (donc change) quelques centaines de cellule application.enableevents=true end if end sub...

Jean-Eric · Accepted Answer

Bonjour,
Bonjour h2so4,
Avec une petite gestion d'erreur !?
Cdlt.

Private Sub worksheet_change(ByVal target As Range)

    On Error GoTo errHandler

    If target.Address = "$J$39" Then
        Application.EnableEvents = False
        'code
        'code
        'code
    End If

exitHandler:
    Application.EnableEvents = True
    Exit Sub
errHandler:
    MsgBox "Erreur : " & Err.Number & Chr(10) & Err.Description
    Resume exitHandler
End Sub