XL 2016 Incrémentation de la valeur d'une cellule à partir du choix d'une valeur d'une liste déroulante

[ABOMIA]

Bonjour à tous,

Je voudrais dans un premier temps vous remercier pour ce que vous faites pour ce forum. Des astuces toujours pratiques qui nous permettent de développer nos connaissances.
Aujourd'hui, je sollicite votre expertise pour m'aider à trouver solution à mon problème.
Problème : Je voudrais dans la colonne B de la feuille, à la sélection de la valeur "NOK" dans la liste déroulante, incrémenter de "+1" la valeur de la cellule de la colonne C.
Exple: A chaque click pour la selection "NOK" dans la cellule B2 , la cellule C2 prends la "+1" , si click dans la cellule B2 pour selection "OK" remise à zero de la cellule C2.

Je vous rajoute le fichier test.

Merci!

 

[sylvanu]

Bonjour Abomia,
En PJ un essai avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "OK" Then Range("C" & Target.Row) = 0
        If Target = "NOK" Then Range("C" & Target.Row) = Range("C" & Target.Row) + 1
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "NOK" Then Range("C" & Target.Row) = Range("C" & Target.Row) + 1
    End If
End Sub

 

[ABOMIA]

Bonjour Abomia,
En PJ un essai avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "OK" Then Range("C" & Target.Row) = 0
        If Target = "NOK" Then Range("C" & Target.Row) = Range("C" & Target.Row) + 1
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "NOK" Then Range("C" & Target.Row) = Range("C" & Target.Row) + 1
    End If
End Sub

Bonjour Sylvanu,

Je me suis peut être mal fait comprendre mais je crois qu'on est pas loin du but .
Au fait je ne veux pas d'incrémentation à chaque clic sur la cellule Bx ayant la valeur "NOK" , je veux juste une incrémentation à la selection de la valeur "NOK"

 

[sylvanu]

Alors c'est encore plus simple.
Il suffit de supprimer la seconde macro qui agit lorsqu'on clique sur une cellule.

 

[ABOMIA]

Alors c'est encore plus simple.
Il suffit de supprimer la seconde macro qui agit lorsqu'on clique sur une cellule.

Formidable et Gracias!!!