Comment limiter Worksheet_Calculate() à seulement exécuter lorsque la plage spécifiée est calculée

Question

donc c'est une question générale, je suis sûr que cela a déjà été demandé, mais je ne trouve pas beaucoup d'aide.

Dans Excel ayant une plage dans une feuille de calcul dire B6: F12, qui sont tous les résultats des calculs que je suis un problème avec le sous-programme Worksheet_Calculate()

mon problème est que, avec ce code très généralisé pour la Worksheet_Calculate sous-routine

Private Sub Worksheet_Calculate() 
    Dim aCell as Range 
    Dim aRange as Range 
    Set aRange = Range(B6:B12) 
    For Each aCell in aRange 
      SomeFunction(aCell) 
    Next 
End Sub 

tout calcul qui se produit dans la gamme C6: F12 provoque l'itération par aRange se passer et appels non nécessaires à SomeFunction (ACELL).

Comment puis-je faire en sorte que ce scénario se produise uniquement lorsqu'un calcul est effectué sur la plage B6: B12?

Answer 1

Ajouter cette avant de commencer votre boucle FOR:

If Not Application.Intersect(ActiveCell, aRange) Is Nothing Then 

Cela ne déclenchent la boucle FOR si vous êtes dans la plage donnée

EDIT
J'ai la configuration du code comme ci-dessous et il semble fonctionner pour moi:

Private Sub Worksheet_Calculate() 
    Dim oWS As Worksheet: Set oWS = ThisWorkbook.Worksheets("Sheet8") 
    Dim aRange As Range: Set aRange = oWS.Range("F6:F10") 
    If ActiveSheet.Name = oWS.Name Then 
     If Not Application.Intersect(ActiveCell, aRange) Is Nothing Then 
      MsgBox "In range" 
     End If 
    End If 
End Sub