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

ABOMIA · 10 Septembre 2020

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 · 10 Septembre 2020

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

sylvanu · 10 Septembre 2020

Bonjour Abomia,
En PJ un essai avec :

Code:

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 · 10 Septembre 2020

sylvanu à dit:

Bonjour Abomia,
En PJ un essai avec :

Code:

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 · 10 Septembre 2020

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

ABOMIA · 10 Septembre 2020

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

Formidable et Gracias!!!

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

ABOMIA

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

ABOMIA

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

ABOMIA

XLDnaute Nouveau

Discussions similaires