Créer un bouton pour faire une addition

bonjour,

je souhaiterais pouvoir créer un bouton qui me fait une addition automatique.
par exemple je remplis une cellule avec mon chiffre ( par exemple 8) et après je clique sur mon bouton et ça m’ajoute automatiquement un nombre (20 par exemple). Le résultat serait de 28. Je configure mon bouton toujours avec le même chiffre à ajouter. Pour l’exemple ce serait tjs 20.
et j’aimerai faire la même chose avec une soustraction.
j’espère que j’ai été assez claire.

Merci d’avance.
Anaïs.

Bonjour,

Au lieu de boutons, vous pourriez utilisez deux événements dans votre module d'onglet :

• 1 double-clic pour diminuer
• 1 clic droit pour augmenter.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

       If Target.Count > 1 Then Exit Sub
       If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
           Target = Target - 20
           Cancel = True
       End If

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

       If Target.Count > 1 Then Exit Sub

       If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
           Target = Target + 20
           Cancel = True
       End If

End Sub

Merci beaucoup pour la réponse.
je vais tester cet après midi. Si ça fonctionne ça me va. L’essentiel c’est que je puisse automatisé mon calcul.

Merci beaucoup.

Cependant un coup de doigt malheureux et vous risquez de perdre votre valeur d'origine... Et ne plus savoir où vous en êtes. Ce serait vrai également avec un bouton.