clic cellule, sa valeur incremente un total - non résolu SVP

[hervoul]

Bonjour,
Voila tout est dit dans le titre.
j'aimerais si possible que lorsque je clique sur une valeur dans une case, que cela incrémente un total dans une autre case.
voir doc joint.

Merci

 

[Paf]

Bonjour hervoul,

à tester:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B5:K5")) Is Nothing Then
    Range("L5") = Range("L5") + Target
End If
End Sub

à copier dans la feuille de code de la feuille Feuil1.

A+

 

[hervoul]

Bonsoir,
je suis désolé, j'ai eu un pépin Microsoft..bref, je ne prends connaissance de ce message que maintenant....Donc merci beaucoup pour la réponse.
Bonne continuation.
Hervé

 

[hervoul]

heuu , ça marche pas, y'a un ptit bug...
voir fichier joint.