ajouter 1 à une cellule à chaque clique d'un bouton

D

David of Lunel

Guest

• 23 Janvier 2003

• #2

resalut !

Range("a2").Value=Range("a2").Value + 1

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 23 Janvier 2003

• #3

salut le forum

associe a ton bouton une macro

Sub inc()
Range("A2").Value = Range("A2").Value + 1
End Sub

C'est tout

 

Vote positif 0 Vote négatif

bruno_74

XLDnaute Nouveau

• 5 Mars 2023

• #4

Bonjour,

J'ai une question en plus.
Sur le même type d'exemple, j'aimerais utiliser ce même bouton pour qu'il incrémente de 1 la valeur de n'importe quelle cellule qu'on sélectionne sur la page.
C'est possible?

Merci,
Bruno

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 6 Mars 2023

• #5

Bonjour Bruno, et félicitations pour le déterrage de sujet de l'année, 20 ans c'est fort
Essayez :

VB:

 Sub Worksheet_SelectionChange(ByVal target As Range)
If isnumeric(target) or target = "" then target = target + 1
End sub

A +

 

Vote positif 0 Vote négatif

bruno_74

XLDnaute Nouveau

• 6 Mars 2023

• #6

Wayki à dit:

Bonjour Bruno, et félicitations pour le déterrage de sujet de l'année, 20 ans c'est fort
Essayez :

VB:

 Sub Worksheet_SelectionChange(ByVal target As Range)
If isnumeric(target) or target = "" then target = target + 1
End sub

A +

Cliquez pour agrandir...

Merci pour le code mais je n'arrive pas à le faire fonctionner dans un fichier macro vierge.
Peux-tu STP m'indiquer les étapes à reproduire ?
Merci

 

Vote positif 0 Vote négatif

bruno_74

XLDnaute Nouveau

• 6 Mars 2023

• #7

ce code doit être dans une macro associée au bouton ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Mars 2023

• #8

Bonsoir.
C'est plutôt :

VB:

Sub BoutonIncrémenter
ActiveCell.Value = ActiveCell.Value + 1
End Sub

 

Vote positif 0 Vote négatif

bruno_74

XLDnaute Nouveau

• 6 Mars 2023

• #9

Suuuuuper @Dranreb
Je vais appliquer le même modèle pour décrémenter
MEEEEERCI

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 6 Mars 2023

• #10

Bonjour,

bruno_74 à dit:

Merci pour le code mais je n'arrive pas à le faire fonctionner dans un fichier macro vierge.
Peux-tu STP m'indiquer les étapes à reproduire ?
Merci

Cliquez pour agrandir...

mon code est à appliquer dans le module de feuille (clic droit sur le nom de la feuille -> visualiser le code)
Il a l'avantage de fonctionner sans bouton, seulement à chaque sélection de cellule.
A +

 

Vote positif 0 Vote négatif

bruno_74

XLDnaute Nouveau

• 6 Mars 2023

• #11

Merci Wayki,

Le double-clic est sympa aussi sauf que si je veux aussi décrémenter la valeur dans une cellule de 1, avec cette méthode je ne peux pas.

 

Vote positif 0 Vote négatif