Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

AddItem au début de la liste


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    AddItem au début de la liste
    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

  2. #2
    Rédacteur

    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Quelques contributions : USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire - Géolocalisation d'une adresse avec Excel et Google sans VBA

###raw>template_hook.ano_emploi###