Discussion :

[MrCMTueurx]

Bonjour,

Je suis dans une petite galère,

Je vous explique, je dois faire un inventaire des pièces détachés,
J'ai donc un userform qui fonctionne très bien,
Cependant pour éviter de scanner 2 fois le même articles j'ai mit une petite listbox qui est alimenter une fois que je scan un article et que je rentre sa quantité

Le problème c'est le sens d'ajout dans la liste, aujourd'hui tout ce rajoute en fin de liste donc pas très pratique.

Comment mettre l'ajout en début de liste ?

Code :

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

1
2
3
4
5
6
7
Dim Scanner As Integer
  Me.ListBox1.AddItem
 
  Scanner = ListBox1.ListCount - 1
 
  ListBox1.List(Scanner, 0) = Me.Txt_Num
  ListBox1.List(Scanner, 1) = Me.Txt_Quantité

Cordialement

[Philippe Tulliez]

Bonjour,
Voici ce que j'ai retrouvé dans mes archives
Procédure qui remonte la ligne sélectionnée dans un ListBox à chaque clic sur le CommandButton nommé cmdUp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdUp_Click()
  With Me.ListBox1
   If .ListIndex > 0 Then
      .AddItem .List(.ListIndex), .ListIndex - 1
      If .ListCount - 1 = .ListIndex Then
         .RemoveItem .ListIndex
         .ListIndex = .ListIndex - 1
       Else
         .RemoveItem .ListIndex
         .ListIndex = .ListIndex - 2
      End If
   End If
  End With
End Sub