Un bouton pour chaque ligne

[Bholly]

Bonjour à tous!
Pour dépouiller un sondage auquel ont participé des milliers de personnes, j'ai besoin de créer des boutons de comptage incrémental en face du nom de chaque candidat de sorte qu'en cliquant dessus la valeur "1" s'ajoute et affiche le résultat dans LA cellule qui est à coté du bouton (sur la même ligne). Une première solution m'a été proposée (voir discussion : Comptage incrémental) mais pour que ça marche comme je veux je suis obligé d'activer (cliquer) d'abord la cellule dans laquelle je veux que la valeur "1" soit ajoutée. Bref, je joins une copie de mon fichier pour une meilleure appréciation.

Merci d'avance!

 

[Gardien de phare]

Re : Un bouton pour chaque ligne

Bonjour,

Sans bouton, un double-clic dans la cellule ajoute 1 à la valeur existante. Ça ne serait pas le plus simple ?

Edit : bonjour Dull, je t'ai grillé d'une minute 😱

 

[Dull]

Re : Un bouton pour chaque ligne

Salut Bholly, le Forum

Pourquoi ne pas utiliser le Double click dans les cellule de la Colonne B beaucoup plus souple

Option Explicit

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

EDITION: Salut Gardien de Phare 🙂 même approche
Bonne Journée

 

[youky(BJ)]

Re : Un bouton pour chaque ligne

Salut,
Un truc à ma façon, un seul bouton qui se déplace et deviens invisible pour ne pas tricher facilement.
A tester
Bruno

EDIT:Loin d'être rapide bonjour à Dull et Gardien de phare

 

[MJ13]

Re : Un bouton pour chaque ligne

Bonjour à tous

Personnellement, je plaiderais pour le Click droit qui permet de gagner un click par rapport au double click sur le nom.

Exemple avec ce code à placer dans la feuille (à adapter au contexte):

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) + 1
End Sub

 

[Gardien de phare]

Re : Un bouton pour chaque ligne

Bonjour Dull, youky, MJ13, le forum

Pas de petites économies 😱

 

[Dull]

Re : Un bouton pour chaque ligne

Salut Michel🙂, Re le fil

Juste pour le plaisir de saluer mon Ami Michel🙂

J'y avais pensé au click droit 😉 mais je l'aurais gardé pour une incrémentation négative

Uneerreurestsivitearrivé 🙂

Bonne Journée les amis 🙂

 

[Si...]

Re : Un bouton pour chaque ligne

salut

"Au diable l'avarice ...", 3 autres propositions