compteur de clic

[stef124]

bonjours j'aimerais savoir si il y a une formule ou un macro qui me permeterais d'aditionner ou de soustraire 1 a la valeur d'une celule par simple clic sur un autre cellule

[tototiti2008]

Bonjour stef124,

plutôt par macro
à priori, sur une cellule, plutôt sur un double-clic ou un clic droit, ou sinon par simple clic sur un bouton, une image, une forme dessinée...

[job75]

Bonjour stef124, bienvenue sur le forum,

Si le clic sur une cellule a pour effet de modifier la sélection, on peut en effet faire un comptage, en écrivant par exemple pour la cellule A1 la macro suivante dans le code de la feuille (clic droit sur l'onglet et modifier le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Range("A1") + 1
End Sub

Edit : pardon tototiti, pas vu ton message

[JCGL]

Bonjour à tous,
Salut Toto,

Un code de Ti qui devrait faire ce que tu souhaites :

Option Explicit ' Ti sur Veriti.net

'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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  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

A+

Edition : Salut Job ;-)

[tototiti2008]

Bonjour job75, Bonjour JCGL,

en effet, il y a Selection_change, mais comme Job75 l'a précisé, ça ne se déclenche que si on modifie la selection. Donc plusieurs clics successifs sur la même cellule ne seront pas comptés.

[JCGL]

Re,

Envoyé par tototiti2008

en effet, il y a Selection_change, mais comme Job75 l'a précisé, ça ne se déclenche que si on modifie la selection. Donc plusieurs clics successifs sur la même cellule ne seront pas comptés.

Peux-tu tester le fichier joint ?
Mais je n'ai, peut-être, pas compris le sens de ta remarque

A++
A+ à tous

[tototiti2008]

Re,

Oui, comme le code de Ti change la sélection, évidement, il triche un peu . Dans cette condition, plusieurs clics successifs sur la même cellule sont comptés.

Je ne l'avais pas testé, c'était pour préciser la spécificité de Selection_Change par rapport à un évènement Click que l'on peut trouver sur d'autres objets.