Compteur excel incrémentation

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:

---

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

Bonjour,

les explications sont un peu brouillon, tu aurait pas mélangé tes L1,M1, K1 et compagnie ??

concernant le code, tu mélanges également les genres, par exemple (c'est pas le seul !) en utilisant non pas des adresses de cellules, mais des variables qui s'appellent "comme" des références, par exemple ici :

Code:

---

If Target = J1 And L1 = "GAGNE!"

---

J1 est une variable pour VBA, tout comme L1


je t'invite à corriger tes erreurs dans l'explication, et également contextualiser ta mecanique :

- le compteur démarre quand ? ouverture du classeur ? de la feuille ? jamais de remise à 0 ?
- à quel moment l'incrémentation doit se faire ?

et peut être d'autres questions, que ton manque de clarté empêchent de mettre en lumière

Je ne maîtrise pas forcément tout cela sur le bout des doigts en effet.

Les deux cellules je n'avais pas prévu de retour à 0 autre que manuel.

Les compteurs commencent à compter dès que l'une des 2 valeurs apparaît (si "!PERDU" apparaît en L1, K1 devient 1, si "GAGNE!" apparaît, M1 devient 1, à la prochaine modification de L1, l'un des 2 compteurs s'incrémente (K1 devient 2 et M1 ne change pas ou M1 devient 2 et K1 ne change pas)), je donne également la formule en L1 qui donne "!PERDU" ou "GAGNE!":

Code:

---

=SI(SOMMEPROD((J1=A1:A1479)*1)<>0;"GAGNE!";"!PERDU")

---

ça devrait ressembler à ça

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Cells(1, 10)) Is Nothing Then If Cells(1, 12) = "!PERDU" Then Cells(1, 11).Value = Cells(1, 11).Value + 1 ElseIf Cells(1, 12) = "GAGNE!" Then Cells(1, 13).Value = Cells(1, 13).Value + 1 End If End If End Sub

---

Rien ne bouge à l'écran K1 et M1 restent totalement vide

J'ai testé en mettant une MsgBox après les conditions:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Cells(1, 10)) Is Nothing Then If Cells(1, 12) = "!PERDU" Then MsgBox "PERDU" Cells(1, 11).Value = Cells(1, 11).Value + 1 ElseIf Cells(1, 12) = "GAGNE!" Then MsgBox "GAGNE" Cells(1, 13).Value = Cells(1, 13).Value + 1 End If End If   End Sub

---

Et elles n'apparaissent pas.

Apparemment, Excel ne détecte pas les "!PERDU" ou GAGNE!"

En fait, j'ai une cellule qui génère un aléa et selon ce dernier, L1 passe de GAGNE a PERDU et j'utilise F9 pour passer au tour suivant (rafraîchir ma fonction ALEA())

Ca donne l'impression que les macro sont désactivées????

rafraichir ton aléa avec F9, ce n'est pas modifier la valeur d'une cellule, au sens de l'évènement Change de ta feuille, c'est recalculer la feuille !
donc quand tu fais F9, la procédure évènementielle ne se lance pas

un contournement possible, utilise une cellule témoin, tu changes sa valeur au lieu de faire F9, ça rafraichira tes ALEA de la même manière
et tu mets les coordonnées de cette cellule témoin dans la ligne 2 de ma proposition, à la place de Cells(1, 10)

En effet, en mettant un X dans L2 et avec la formule:

Code:

---

=SI(ET(L2="X";SOMMEPROD((J1=A1:A1479)*1)<>0);"GAGNE!";SI(ET(L2="X";SOMMEPROD((J1=A1:A1479)*1)=0);"!PERDU";""))

---

en L1 c'est bon!!!!

Sans changer le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Cells(1, 10)) Is Nothing Then   If Cells(1, 12) = "!PERDU" Then   Cells(1, 11).Value = Cells(1, 11).Value + 1 ElseIf Cells(1, 12) = "GAGNE!" Then   Cells(1, 13).Value = Cells(1, 13).Value + 1 End If End If   End Sub

---

Merci

En fait tout le problème est dans le déclenchement de l'aléa en effet.