1 clic = +1

G

Guest

Guest

• 24 Juillet 2008

• #2

Re : 1 clic = +1

Bonjour,

Code:

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

A bientôt

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 24 Juillet 2008

• #3

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 :

Code:

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é ???

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Juillet 2008

• #4

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!

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 24 Juillet 2008

• #5

Re : 1 clic = +1

Re à tous,

Hello Robert🙂
Salut MJ13🙂

@MJ13: Bien-sûr tu peux faire

Code:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Juillet 2008

• #6

Re : 1 clic = +1

Merci Hasco,

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 24 Juillet 2008

• #7

Re : 1 clic = +1

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Juillet 2008

• #8

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).

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Juillet 2008

• #9

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.

 

Pièces jointes

• ToupieOrNotToupie.xls

  45 KB · Affichages: 86

Vote positif 0 Vote négatif