Ajout et Suppression de quantité (macro)

Bonjour

Un petit exemple
https://www.cjoint.com/?3CeqylCa2vY

Cdlmnt

Ah!
0. Nommer les cellules et les plages comme indiqué dans le fichier

1. Mettre les deux boutons dans la feuille
Ces boutons (contrôles ActiveX) doivent être pris dans la boite à outils contrôles (Affichage/barres d'outils/Boite à outils contrôles)
L'équerre bleue permet de passer du mode création au mode exécution
Clic sur l'équerre bleue, et mettre les deux boutons dans la feuille
Clic-droit sur le bouton pour modifier les propriétés
Name = btPlus1
Caption +1
Font ....
2. Implémenter le code attaché aux boutons
Clic-clic sur le bouton te fait passer dans l'éditeur vba
Tu complètes le code, les deux boutons font appel à la même procédure MAJ(k) où k prendra la valeur envoyée par les procedures Click des boutons

Private Sub btMoins1_Click()
Call MAJ(-1)
End Sub

Private Sub btPlus1_Click()
Call MAJ(1)
End Sub

3. Ecriture de la procédure MAJ(k)
Insertion/module pour passer dans un module "général" (c'est plus propore), copier le code de la procédure

Const FT = "Feuille de travail"
Const Ref = "Ref"

Const FB = "Base"
Const plageRef = "Reference"
Const plageStock = "Stock"

Public Sub MAJ(k As Long)
Dim plage As Range, R As String, objref As Object, li As Long, s As Long
  R = Sheets(FT).Range(Ref).Value
  Set plage = Sheets(FB).Range(plageRef)
  Set objref = plage.Find(R, , , xlWhole)
  If objref Is Nothing Then Exit Sub
  li = objref.Row
  s = Sheets(FB).Range(plageStock).Cells(li, 1).Value
  Sheets(FB).Range(plageStock).Cells(li, 1).Value = s + k
End Sub

4. Retour dans la feuille de calcul
Clic sur l'équerre bleue pour passer en mode exécution

5. C'est fini

Mais non, mais non !
Tu fais la manip deux ou trois fois, et après ça se fera tout seul

Bon courage :-)