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.

 

[leolf]

Bonsoir.
C'est plutôt :

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

J'ai beaucoup aimé, mais j'aimerai visé une case en question que puis je ajouter ?

 

[Dranreb]

Bonsoir.
Pour viser une cellule spécifique, toujours la même, utilisez Range(Adresse) au lieu de ActiveCell

 

[AtTheOne]

Bonsoir à toutes & à tous

Il a l'avantage de fonctionner sans bouton, seulement à chaque sélection de cellule.

Mais il faut changer de cellule (des clics successifs dans la même cellule ne déclenchent pas l'événement Worksheet_SelectionChange)
À bientôt