Discussion :

[flo1986]

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.

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.