1 clic = +1

[kystere]

Bo,njour à tous,
Mon patron me demande de chercher la macro ci-dessus...
Quelqu'un a t-il une idée 😕

 

[Guest]

Re : 1 clic = +1

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target = Target + 1
    Cancel = True
End Sub

A bientôt

 

[Robert]

Re : 1 clic = +1

Bonjour Kystère, bonjour le forum,

la macro ci-dessous (limitée à la cellule A1, tu adapteras), agit au clic du bouton droit de la souris :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then Exit Sub 'si le clic droit est fait ailleurs qu'en A1, sort de la procédure
Cancel = True 'évite le menu contextuel lié au clic droit
Range("A1").Value = Range("A1").Value + 1 'ajoute 1 à la valweur actuelle
End Sub

Édition :

Bonjour Hasco on s'est croisés.... "Target = Target+1" bien sûr pourquoi faut-il que je fasse compliqué ???

 

[MJ13]

Re : 1 clic = +1

Bonjour Kystère, Hasco, Robert🙂

Bien sympa cette macro.

Par contre pourquoi ne peut-on pas le faire avec le clic gauche? Mystère!

 

[Guest]

Re : 1 clic = +1

Re à tous,

Hello Robert🙂
Salut MJ13🙂

@MJ13: Bien-sûr tu peux faire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$3" Then Target = Target + 1
End Sub

Mais c'est moins pratique. Le clic-gauche servant à la sélection des cellules à la souris.

A bientôt

 

[MJ13]

Re : 1 clic = +1

Merci Hasco,

Mais avec ton dernier code, on ne peut pas cliquer plusieurs fois pour incrémenter!

 

[Lii]

Re : 1 clic = +1

Bonjour,

Pour le clic gauche répétitif, il suffit de changer de cellule (eh oui, select oblige !) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$3" Then
      Target = Target + 1
      Range("A1").Select 'par exemple
    End If
End Sub

 

[MJ13]

Re : 1 clic = +1

Bonjour Lii

Merci pour ce code.

Mais bon, on ne peut pas changer facilement le compteur. Il vaut peut être mieux mettre une toupie (enfin si c'est faisable, mais je l'ai déjà vu).

 

[MJ13]

Re : 1 clic = +1

Bonjour à tous

Voici une synthèse de vos réponses.

J'ai ajouté, un compteur, un spinbutton et un USF.

Merci à vous tous, car ainsi, j'ai découvert plusieurs façons de programmer un compteur.