veriti site des amis d'excel

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