1 dans une cellule

Bonjour,

Je commençais à comprendre un peu le vba, mais ça fait longtemps que j'en ai pas fait. Du coup je voudrais juste avoir la solution suivante:

Lorsque je clique sur un bouton (je vais faire la forme "+", une cellule affectée à ce bouton voit sa valeur augmenter de 1.

(en fait je voudrais le même mécanisme que la toupie, mais en ayant seulement un bouton "+")

par exemple, la valeur de la cellule est de 0, je clique sur "+" et la la valeur est alors de 1.

Quand la valeur est à 1, je clique et cette valeur passe à 2.

Ainsi de suite...

merci d'avance

4esai.xlsx (9.21 Ko)

Bonjour

Macro (code dans Module) à affecter à chaque signe +

Sub Ajouter()
Set plus = ActiveSheet.Shapes(Application.Caller).TopLeftCell
Cells(plus.Row, plus.Column).Offset(0, 1).Select
ActiveCell.Value = ActiveCell + 1
End Sub

Cordialement

8esai.zip (18.47 Ko)

Bonsoir le forum,

Incrémenter de 1 (jusqu'à un certain plafond)

Décrémenter de 1 (jusqu'à un certain seuil).

Possibilité de RAZ du compteur.

mbbp

Bonsoir,

Super pour vos solutions.

Je retiens celle d'amadéus, qui est la plus adaptée.

Merci beaucoup !