Augmenter ou diminuer de 1 des valeurs

Bonjour le forum,

Je veux utiliser un spin button sur feuille excel pour augmenter ou diminuer de 1 les valeurs des cellules non vides dans la plage "G3:G183.

Je vous remercie d’avance pour votre aide en espérant que cela soit possible.

Cordialement

Bonjour,

Le SpinButton1 a pour propriétés : Max = 1 ; Min = -1 et SmallChange = 1

Le code du SpinButton1 (dans le module de la feuille "Tb_Infos") est :

Private Sub SpinButton1_Change()
Dim x As Range
   If SpinButton1.Value = 0 Then Exit Sub
   For Each x In Range("g3:g183").SpecialCells(xlCellTypeConstants, 1): x = x + SpinButton1.Value: Next
   SpinButton1.Value = 0
End Sub

Bonjour mafraise,

Merci pour la réponse ça marche bien dans mon projet, ça m'a permis d'avancer