[XL-2010] Addition & soustraction [Résolu]

[Labinouse]

Bonjour à tous,

Je souhaite créer un fichier de gestion de stock.
Le bouton "A" me permet d'ajouter le chiffre présent dans la cellule A1 au chiffre existant dans la cellule B1
Le bouton "B" me permet de retirer le chiffre présent dans la cellule A1 au chiffre existant dans la cellule B1

Merci pour vos réponses.

[mercatog]

Pour la somme

Code :

1
2
3
4
5
6
Private Sub CommandButton1_Click()
 
With Worksheets("Feuil1") 'adapte au nom de ta feuille
    .Range("B1") = Val(.Range("B1")) + Val(.Range("A1"))
End With
End Sub

[Labinouse]

Merci pour la solution. Elle correspond à mon besoin. Je l'ai adaptée pour les soustractions.