Insertion données dans colonne ListBox

bonjour,

je souhaite insérer les données sélectionnées depuis un comboboxArticle vers une listboxDesArt dans la bonne colonne
ComboBoxArticle = code article et désignation de la liste de tous les articles disponibles
ListBoxDesArt colonne 1 = code article; colonne 2 = désignation article d'un devis prédéfini
je veux pouvoir insérer à l'endroit sélectionné dans ListBoxDesArt, ce que je sélectionne dans la ComboBoxArticle (code article et désignation)
Or je n'arrive pas à dire : listindex + N°col correspondante
voici le code pour plus de clarté :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub CmdBotInsert_Click() Dim Valeur1 As Variant, Valeur2 As Variant Dim Plg_A_Inserer1 As Range Dim Plg_A_Inserer2 As Range   'Si l'usager n'a fait aucune sélection With Me.ListBoxArtDes If .ListIndex = -1 Then 'fin de la procédure Exit Sub Else 'récupère la ligne dans la feuille qui correspond 'à la sélection dans le listboxArtDes LigInsert = .ListIndex End If End With   With ComboBoxArticle If .ListIndex <> -1 Then Set Plg_A_Inserer1 = RgComboBoxArticle1(.ListIndex + 1) Set Plg_A_Inserer2 = RgComboBoxArticle2(.ListIndex + 1) End If End With   'insertion dans la listboxArtDes au dessus de la ligne sélectionnée   With Me.ListBoxArtDes .AddItem (Plg_A_Inserer1), .ListIndex(1) .AddItem (Plg_A_Inserer2), .ListIndex(2) End With     End Sub

---

merci pour votre aide !

Bonjour,

Tu dois dans la propriété ColumnCount de ta listbox définir le nombre de colonnes voulues

Ces colonnes dans la gestion des listbox sont n° de 0 à ColumnCount -1

ListBox.Additem "Essai" : incremente automatiquement la listbox colonne 0, les autres colonnes fonctionnent en mise à jour.
Exemple : ListBox.list(0,1) = "Essai colonne 2"
..............Listbox.list(0,2) = "Essai colonne 3"

Merci Wilfried

effectivement il fallait modifier propriété ColumnCount =2
maintenant en adaptant ton code, j'ai en résultat le REMPLACEMENT des valeurs dans la ListBoxArtDes or ce que je veux c'est rajouter une ligne avec les valeurs Plg_A_Inserer1 et Plg_A_Inserer2

Code:

---

1 2 3 4 5

With Me.ListBoxArtDes ListBoxArtDes.AddItem ListBoxArtDes.List(LigInsert, 0) = Plg_A_Inserer1 ListBoxArtDes.List(LigInsert, 1) = Plg_A_Inserer2 End With

---

comment faire pour Insérer une ligne au-dessus de LigInsert ?
Où est mon erreur ?
d'avance merci

re:

si j'entends bien, tu desires inserer une ligne entre 2 lignes d'une listbox préremplie. Je n'ai pas encore trouvé d'ordre insert dans les listBox, je m'avance peut être mais pour moi on ne peut qu'ajouter.
J'utilise alors un truc
j'ai une listeBox (lstB) qui contient 10 items sur 3 colonnes
je me positionne sur la 5ème ligne et je veux inserer entre la 4ème et la 5ème une nouvelle ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim ligne as integer, posit as integer, i as integer, j as integer ' i : boucle sur les lignes, j sur les colonnes ligne = lstB.listcount 'Nombre de ligne dans la listbox posit = lstB.listindex lstb.additem " " for i = ligne to posit+1 step -1 For j = 0 to 2 ' 3 colonnes lstb.list(i,j) = lstb.list(i-1,j) Next j Next i lstb.list(posit,0) = "Rens colonne 1" lstb.list(posit,1) = "Rens colonne 2" lstb.list(posit,2) = "Rens colonne 3"

---

code fait à main levée, non testé (je n'ai pas trop le temps je reprends le boulot)

merci Wilfried, ça fonctionne très bien avec ton code à main levée !
bon courage :D