Un bouton pour chaque ligne

Gardien de phare

XLDnaute Accro

• 26 Janvier 2013

• #2

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 😱

 

Pièces jointes

• Copie de un_bouton_par_ligne-1.xlsm

  15.9 KB · Affichages: 41

Dernière édition: 26 Janvier 2013

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 26 Janvier 2013

• #3

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

Code:

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

 

Dernière édition: 26 Janvier 2013

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Janvier 2013

• #4

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

 

Pièces jointes

• un_bouton_par_ligne.xlsm

  19.9 KB · Affichages: 42
• un_bouton_par_ligne.xlsm

  19.9 KB · Affichages: 45
• un_bouton_par_ligne.xlsm

  19.9 KB · Affichages: 44

Dernière édition: 26 Janvier 2013

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Janvier 2013

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 26 Janvier 2013

• #6

Re : Un bouton pour chaque ligne

Bonjour Dull, youky, MJ13, le forum

Pas de petites économies 😱

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 26 Janvier 2013

• #7

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 🙂

 

Dernière édition: 26 Janvier 2013

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Janvier 2013

• #8

Re : Un bouton pour chaque ligne

salut

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

 

Pièces jointes

• ToupiePlus1Moins1.xlsm

  24.2 KB · Affichages: 50

Vote positif 0 Vote négatif