Incrémentation de type N=N+1

Bonjour à tous !

Je viens ici car je cherche à élaborer un tableur pour la gestion de points pendant des quizz, pour cela j'aimerais que lorsque je choisi la personne ayant eu la bonne réponse dans la colonne bleue, cela incrémente un +1 dans la case en face du nom de cette personne dans le tableau de décompte des points (colonne violette) pour que le compte des points se fasse automatiquement, cependant ne maitrisant pas Excel à la perfection, je ne sais pas de quelle manière le faire.

J'espère être clair, si ce n'est pas le cas je préciserais ma demande avec plaisir !

Merci d'avance !

Neochrom

Bonjour NeoChrom,

bienvenue au club!

Vois si cela peut te convenir avec, en prime (c'est Noël, quand même! ), un tri de tes colonnes "OP".

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim rCel As Range
'
If Not Application.Intersect(Target, Range("H4:H" & Rows.Count)) Is Nothing Then
    iRow = Range("L" & Rows.Count).End(xlUp).Row
    Set rCel = Range("L4:L" & iRow).Find(what:=Target.Value, searchorder:=xlByRows, searchdirection:=xlNext)
    rCel.Offset(0, 1) = rCel.Offset(0, 1) + 1
    Range("O4:P" & iRow).Sort key1:=Range("P4"), Order1:=xlDescending
End If
'
End Sub

Joyeuses Fêtes!

A+

Waho !

Je te remercie énormément pour ces cadeaux de noël en avance !

Bonnes fêtes également et à bientôt !

Neochrom