Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

ABOMIA

XLDnaute Nouveau
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!
 

Pièces jointes

  • TEST_Incrémentation.xlsx
    8.5 KB · Affichages: 14

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • TEST_Incrémentation.xlsm
    14.2 KB · Affichages: 5

ABOMIA

XLDnaute Nouveau

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"
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…