Décrémenter automatiquement une listbox

Bonjour à toutes et à tous,


J'ai une listbox (qui s'alimente en fonction d'un choix de référence) composé de 2 colonnes, une avec le stock disponible (à décrémenter) et une autre avec le lieux de stockage.

Je souhaiterai avec un code, sélectionner la première ligne de la listbox et lorsque j'effectue une sortie de stock (via command button) , la macro me décrémente cette ligne et les autres lignes (tant qu'il y a du stock disponible).


Merci d'avance pour toutes vos réponses.

Bonjour,

Une piste. Si tes valeurs sont issues d'une feuille, il te faut décrémenter aussi ces valeurs enfin, à voir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click()   With Me.ListBox1   If .ListIndex <> -1 Then '1 choix doit être fait   If .Column(0, .ListIndex) = 0 Then 'évite les valeurs négatives   MsgBox "Le stock est vide !" Exit Sub   End If   .Column(0, .ListIndex) = .Column(0, .ListIndex) - 1   End If   End With   End Sub

---

Hervé.