Cette procédure permet d'incrémenter un compteur à chaque clic de souris sur une cellule...
Pour cet exemple, le principe est paramétré sur deux plages ... Une plage nommée "Plus" et l'autre "Moins" sur la feuille1 du classeur...
Lors de chaque clic dans une zone Plus ou Moins, le compteur s'incrémente ainsi (de + ou - 1) dans la colonne Compteur
Procédure à coller dans un module de feuille
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Ti
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Plus")) Is Nothing Then
With .Offset(0, 2)
.Value = .Value + 1
.Select
End With
ElseIf Not Intersect(Target, Range("Moins")) Is Nothing Then
With .Offset(0, 1)
.Value = .Value - 1
.Select
End With
End If
End With
End Sub