Compteur pour changement sur une plage de cellules

bonjour à tous

voici ma question :

est il possible de compter si il y'a des changement sur plage donnée:

exemple:

feuille Janvier:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Compteur As Long

si changement sur la plage range(A2:NS 2OO) alors

Compteur = Sheets("test").Range(1, 1).Value

Compteur = Compteur + 1

Sheets("test").Range(1, 1).Value = Compteur

end if

End Sub

je n'arrive pas a compter les trous je suis vraiment au début du via

merci a vous tous de votre aide

jerome

Salut Jérôme,

La macro ci-dessous devrait répondre à ton attente.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A2:NS200")) Is Nothing Then
    Range("A1") = Range("A1") + 1
End If

End Sub

Cordialement.

Salut

essayer ca

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Compteur As Long
If Not Application.Intersect(Target, Range("A2:NS200")) Is Nothing Then
Compteur = Sheets("test").Range(1, 1).Value
Compteur = Compteur + 1
Sheets("test").Range(1, 1).Value = Compteur
End If

End Sub

Salut Amir,

AMIR a écrit :

essayer ca

Re-salut Jérôme,

Tu parles d’une feuille ‘’Janvier’’. Si jamais tu dois utiliser cette macro pour les 12 mois de l’année par exemple, il serait bien entendu aberrant de la copier 12 fois dans 12 feuilles différentes. Une macro centrale s’imposerait alors très certainement.

Amicalement.

re bonjour

merci à vous tous

yvouille je te remercie c exactement ce qui me fallait

un grand et immense merci

très respectueusement

jerome

ps: j'ai pris en compte ta remarque sur la macro