bouton incrémente

Victor21

XLDnaute Barbatruc

Supporter XLD

• 15 Mars 2011

• #2

Re : bouton incrémente

Bonsoir, matt31.

Code:

If IsNumeric(ActiveCell.Value) Then ActiveCell.Value = ActiveCell.Value + 1

en remplacement de ton code incrémentera de 1 la cellule que tu auras sélectionnée chaque fois que tu ciqueras sur le petit bouton rouge.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Mars 2011

• #3

Re : bouton incrémente

Bonsoir Matt, Patrick, bonsoir le forum

Patrick/Victor a encore frappé vite et bien...
Comme j'ai planché aussi sur ton problème, je t'envoie une proposition sans bouton qui incrémente au double-clic dans la cellule avec la macro événementielle BeforeDoubleClick.
Double-clique dans la cellule de ton choix en colonne A pour l'incrémenter...

 

Pièces jointes

• Matt_v01.xls

  32 KB · Affichages: 285
• Matt_v01.xls

  32 KB · Affichages: 299
• Matt_v01.xls

  32 KB · Affichages: 305

Vote positif 0 Vote négatif

M

matt31

XLDnaute Occasionnel

• 15 Mars 2011

• #4

Re : bouton incrémente

un grand merci à tous les deux pour vos réponses ultra rapides.

Victor, le seul souci que j'ai avec la formule est que cela incrémente aussi les cellules sélectionnées dans d'autres colonnes. Peut-on limiter à une seule colonne?

Robert, peux-tu m'expliquer comment mettre en place cette macro (que je ne connais pas du tout) afin que je puisse l'adapter ou plutôt la transposer sur mon fichier?

Encore merci

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 15 Mars 2011

• #5

Re : bouton incrémente

Re,

Pour limiter à la colonne A:A :

Code:

If ActiveCell.Column = 1 And IsNumeric(ActiveCell.Value) Then ActiveCell.Value = ActiveCell.Value + 1

Edit Robert : 😱
Je ne suis pas prêt d'arriver à ton niveau, mais je progresse tous les jours en vous lisant.
🙂

 

Dernière édition: 15 Mars 2011

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Mars 2011

• #6

Re : bouton incrémente

Bonsoir le fil, bonsoir le forum,

Matt dans mon fichier, tu cliques avec le bouton droit sur l'onglet Feuil1. Tu choisis l'option Visualiser le code. Là tu copies le code (je te le mets ci-dessous aussi) :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dasns une cellule
'si le double-clic a lieu ailleurs que dans la plage des cellules éditées de la colonne A, sort de la procédure
If Application.Intersect(Range("A1:A" & Range("A65536").End(xlUp).Row), Target) Is Nothing Then Exit Sub
Cancel = True 'évite le mode édition lié au double-clic
Target.Value = Target.Value + 1 'incrémente la cellule
End Sub

Tu fais pareil avec ton fichier et tu colles le code...


[Édition]
Heu Patrick... Tu te dopes ou quoi ?

 

Vote positif 0 Vote négatif

M

matt31

XLDnaute Occasionnel

• 15 Mars 2011

• #7

Re : bouton incrémente

encore un grand merci à vous deux

Robert, existe-t-il une autre formule que le double click?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 16 Mars 2011

• #8

Re : bouton incrémente

Bonsoir le fil, bonsoir le forum,

Matt, ouvre un fichier vierge. Ouvre VBE (Visual Basic Editor) avec [Alt]+[F11], clique dans le cadre supérieur à gauche sur n'importe quel onglet de ce fichier Feuil1(Feuil1) par exemple. Dans le grand cadre à droite tu as deux champs en haut, Objet et Procédure. Dans le premier, où par défaut il y a écrit (Général), choisis l'option Woorksheet. Le second affiche maintenant SelectionChange qui est la procédure par défaut. Clique dans ce champ est tu auras la liste des macro événementielles. C'est à dire qui se déclanchent automatiquement à un événement donné...
SelectionChange se déclenche dès que tu changes la cellule active
Change se déclenche dès que tu modifies le contenu d'une cellule. Etc... Regarde l'aide VBA...

Le composant ThisWorkbook a lui aussi des macro événementielles...

 

Vote positif 0 Vote négatif

M

matt31

XLDnaute Occasionnel

• 16 Mars 2011

• #9

Re : bouton incrémente

merci beaucoup pour toutes ces explications

 

Vote positif 0 Vote négatif