Re bonjour,
Je vais essayer d'être precis et simple étant donné qu'on m'a fait la remarque, je joins un fichier Exemple( fait au mieux)
deux compteurs qui s'incrémentent en fonction de la valeur d'une cellule E1 ( par rapport A1 )
Si en E1 = "Ok" le compteur "Ok" s'incremente (en E8)
si en E1 ="Stat" le compteur "Stat" s'incremente.(en F8).
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Range("E1").Value Like "Stat" Then
Application.EnableEvents = False
Cells(8, 5) = Cells(8, 5) + 1
Application.EnableEvents = True
Celui ci-est pour le compteur "Stat"
Je voudrais pouvoir cumuler dans le meme code l'incrementation des différents compteurs ( et rajouter des compteur si besoin)
Un fichier joint.
Merci de vos réponses