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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour