Exécution du code lors de la modification de la feuille

Question

Je souhaite exécuter la boucle lorsque la feuille est modifiée. La super boucle de mon code ne s'arrête pas c'est normal ...
Comment remplacer le Worksheet_Change ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim s As String
For i = 3 To 66
  s = "D" & i & ":I" & i
  X = Application.CountIf(Range(s), "X")
  Range("J" & i).Value = X
  CM = Application.CountIf(Range(s), "CM")
  Range("K" & i).Value = CM
  ANJ = Application.CountIf(Range(s), "ANJ")
  Range("L" & i).Value = ANJ
  AJ = Application.CountIf(Range(s), "AJ")
  Range("M" & i).Value = AJ
  AM = Application.CountIf(Range(s), "AM")
  Range("N" & i).Value = AM
  CP = Application.CountIf(Range(s), "CP")
  Range("O" & i).Value = CP
  RC = Application.CountIf(Range(s), "RC")
  Range("P" & i).Value = RC
  R = Application.CountIf(Range(s), "R")
  Range("Q" & i).Value = R
  AT = Application.CountIf(Range(s), "AT")
  Range("R" & i).Value = AT
Next i
End Sub

Merci,

BasicInstinct · Answer

ta boucle ne s'arrete pas cas elle modifie ta worksheet
=> ca entraine l'execution de ta procedure change
...
essaie avec SelectionChange

Exécution du code lors de la modification de la feuille

1 réponse

Discussions similaires