Bonjour,
Je cherche à compter le nombre de fois qu'une cellule est modifiée.
Cette cellule contient une formule qui affiche A ou B selon la valeur d'une autre cellule.

En L1 s'affiche !PERDU ou GAGNE! et je voudrais qu'en L1 le nombre de perdu s'incrémente et en M1 le nombre de gagné.

Pour l'instant, j'ai trouvé ce code mais il ne fonctionne pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Compteur1 As Long, Compteur2 As Long
Range("K1").Value = 0
Range("M1").Value = 0
Compteur1 = Range("K1").Value
Compteur2 = Range("M1").Value
If Target = J1 And L1 = "GAGNE!" Then Compteur1 = Compteur1 + 1
Range("K1").Value = Compteur1
 
If Target = J1 And L1 = "!PERDU" Then Compteur2 = Compteur2 + 1
Range("M1").Value = Compteur2
 
End Sub
Rien ne s'affiche ni en K1 ni en M1.


Merci