Microsoft 365 Compteur Cellule

[Brassmick59]

Bonsoir à tous.

J'essaye en parcourant le forum de créer une feuille qui me permette de comptabiliser des ventes en les ventilant sur différentes cellules.
1 clic incrémente en +1
Quelqu'un pourrait il m'expliquer comment "décrementer" (-1) avec clic droit par exemple. En effet, si clique gauche accidentel, pas de retour en arrière possible.

Je mets ma feuille excel en PJ afin d'être plus explicite.

Bien amicalement

 

[job75]

Bonsoir Brassmick59,

Utilisez le double-clic et le clic droit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("B4:S7")) Is Nothing Then
    Cancel = True
    ActiveCell = ActiveCell + 1
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("B4:S7")) Is Nothing Then
    Cancel = True
    ActiveCell = ActiveCell - 1
    If ActiveCell = 0 Then ActiveCell = ""
End If
End Sub

A+

 

[Brassmick59]

Un grand merci à vous.
Le VB m'est très compliqué en novice que je suis.

 

[Phil69970]

Bonjour à tous

Je te propose ce fichier avec double clic et clic droit

Le VB m'est très compliqué en novice que je suis.

Et pourtant c'est bien un code VBA qui était déjà dans le fichier que tu nous as transmis ! 😉