Compteur de Clics

Bonjour,

Je viens vers vos lumières.

J'aimerai que lorsque je clique sur une cellule de la colonne B, s'affiche le nombre de fois que j'ai cliqué.

Je clique une fois en B2 alors en B2=1, si je clique deux fois alors B2=2 etc

Le top serait que si je clique droit sur B2 le nombre de fois s'additionne, si je clique droit le nombre de fois de soustrait.

J'ai récupéré un code pour incrémenter un X ou effacer le X à la cellule sur laquelle je clique...

Mais je suis pas un as du VBA.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
' Si la selection de la cellule ne se fait dans la colonne B
' On sort de la procédure
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    ' Sinon, on empèche les évènements le temps de la modification
    Application.EnableEvents = False
    ' Si la cellule contient déjà la lettre de validation
    If Target.Value = "" Then
        n = 1

    If Target.Value > 1 Then
        n = n + 1

    End If
    End If
    ' Activer les évènements
    Application.EnableEvents = True
End Sub

Merci d'avance à celui ou ceux qui se pencheront sur mon souci.

Cordialement,

Leakim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Columns(2), Target) Is Nothing Then
Target.Value = Target.Value + 1
End If
Range("A1").Select
End Sub

Bonjour,

Merci à EngueEngue

J'en suis là

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Columns(2), Target) Is Nothing Then
Target.Value = Target.Value + 1
End If
ActiveCell.Offset(-1, 0).Select
End Sub

Si vous avez d'autre idée pour le clique droit qui soustrait !

Leakim

Toi pas très débrouillard..

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Columns(2), Target) Is Nothing Then
Cancel = True
Target.Value = Target.Value - 1
End If
ActiveCell.Offset(-1, 0).Select
End Sub

Salut EngueEngue,

Oui j'en conviens c'est désopilant comme je suis pas débrouillard

Je te remercie, c'est nickel.

Cordialement,

Leakim