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

[jérôme]

Mon problème est le suivant:
j'aimerais incrémenter une cellule de 1 à chaque fois que je clique sur un bouton
par exemple si j'appuie sur le bouton "plus 1" la cellule (A2) sera incrementer de 1 donc si sa valeur était 5 elle sera désormé 6
suis-je claire?....là est la question!
cordialement jérôme

 

[David of Lunel]

resalut !

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

 

[Mytå]

salut le forum

associe a ton bouton une macro

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

C'est tout

 

[bruno_74]

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

 

[Wayki]

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

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

A +

 

[bruno_74]

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

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

A +

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

 

[bruno_74]

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

 

[Dranreb]

Bonsoir.
C'est plutôt :

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

 

[bruno_74]

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

 

[Wayki]

Bonjour,

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

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 +

 

[bruno_74]

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.