Incrémentation automatique d'une cellule sur double clic

Bonjour à tous et à toutes et meillerus voeux pour cette nouvelle année.

Dans un cadre d'activité sportive, je me suis fait un tableau de marquage des actions de chaque joueur. Ce tableau sert de pointage et de statisque pour chaque match.

Je cherche juste à simplifier la saisie qui est très simple et basique.

Existe-t-il une possibilité d'incréménter une cellule de 1 à chaque double clic sur cette cellule ?

On partirai d'une cellule vide par défaut, et à chaque double clic on augmente le score de 1 ?

Merci de votre aide, j'ai cherché sans trouver sur le forum, mais il se peut que mon faible niveau ne m'ai pas permis de bien comprendre.

Bonjour le forum

bonjour cédric,

Je ne suis pas spécialiste en Vba mais cela pourrait -il te convenir, c'est un code que j'avais sur un fichier :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a1")) Is Nothing Then
Range("a1").Value = 1
Else
 ActiveCell.Value = ActiveCell.Value + 1

Cancel = True
End Sub

Cordialement

Stéphane

Super Stéphane, merci.

Ca semble plutôt bien marcher, sur plusieures cellules.

Le seul inconvénient, est qu'il faille que je saisisse manuellement les 80 cellules concernées ... Mais ça me va pour le moment.

Bon, en définitive ça ne marche que pour un nombre limité de cellules. Au delà de 64, ça plante (impression d'écran jointe), et je souhaite appliquer ça sur 264 cellules ....

Je me réponds à moi-même, car entre temps j'ai cherché, et c'est tout simple de définir un rectangle en utilisant "coin1 : coin 2".

Et donc tout fonctionne nickel.

Et voilà un homme heureux pour aujourd'hui...