Remplir une ListBox à partir de valeurs d'une autre ListBox

Bonjour,

je souhaite récupérer les valeurs d'une listbox dans une autre listbox.

Voici mon code:

Code:

---

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

With usf_Dot .tbRefArt = LstLigDot.List(LstLigDot.ListIndex, 0) ' ref Article .tbDesignation = LstLigDot.List(LstLigDot.ListIndex, 1) ' Designation .tbPdt = LstLigDot.List(LstLigDot.ListIndex, 2) ' Produit .tbStatutReglementaire = LstLigDot.List(LstLigDot.ListIndex, 3) 'Statut règlementaire .tbListePositive = LstLigDot.List(LstLigDot.ListIndex, 4) 'Liste positive .tbUnitecde = LstLigDot.List(LstLigDot.ListIndex, 5) ' Unite cde .tbStockStaci = LstLigDot.List(LstLigDot.ListIndex, 6) ' Stock .tbPoids = LstLigDot.List(LstLigDot.ListIndex, 7) ' Poids ' .tbdatePeremption = LstLigDot.List(LstLigDot.ListIndex, 19) ' Date peremption 'on récupère le nombre de lignes "réseau" présents dans la listbox LstLignesSel x = LstLignesSel.ListCount For i = 1 To x 'Rajout d'une colonne LstLignesSel.ColumnCount = 2 ' Récupération des valeurs présentes à partir de la colonne 11 + x LstLignesSel.AddItem LstLignesSel.List(i, 1) = LstLigDot.List(LstLigDot.ListIndex, i + 10) Next i End With

---

Mon code plante à la ligne

Code:

---

LstLignesSel.List(i, 1) = LstLigDot.List(LstLigDot.ListIndex, i + 10)

---

avec l'erreur Pièce jointe 523932

Est-ce que quelqu'un voit quel peut être le problème?

Merci d'avance,

Frank

Bonsoir,

Un exemple simple de transfert entre 2 ListBox

Code:

---

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

Dim f Private Sub UserForm_Initialize() Set f = Sheets("BD") Me.Source.List = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value Me.Dest.List = f.Range("B2:B" & f.[b65000].End(xlUp).Row).Value ListeManque End Sub   Private Sub b_prend_Click() If Me.Source.ListIndex <> -1 And Me.Source.ListCount > 0 Then Item = Me.Source '.List(i) Tbl = Me.Dest.List p = Application.Match(Item, Application.Index(Tbl, 0), 0) If IsError(p) Then Me.Dest.AddItem Item ListeManque End If End Sub   Private Sub B_enlève_Click() If Me.Dest.ListCount > 0 And Me.Dest.ListIndex <> -1 Then Me.Dest.RemoveItem Me.Dest.ListIndex ListeManque End Sub

---

Boisgontier

Bonjour Jacques,
merci pour ta réponse, mais je cherche surtout à comprendre pourquoi mon code ne marche pas.

Je vais être un peu plus précis sur mon besoin:

la listbox LstLignesSel contient des données sur une colonne.
La listbox LstLigDot contient des données sur plusieurs colonnes.

je cherche à créer une deuxième colonne dans LstLignesSel et y intégrer des valeurs prises dans LstLigDot sur plusieurs colonnes.

Basé sur le nombre de lignes dans LstLigDot, je sais sur combien de colonnes dans LstLigDot je dois travailler.

Code:

---

LstLigDot.List(LstLigDot.ListIndex, i + 10)

---

ramène bien la valeur attendue, mais

Code:

---

LstLignesSel.List(i, 1)

---

produit l'erreur indiquée dans mon premier message.

Salut

Hum je pense que le problème est plus "vaste" que juste cette ligne

Code:

---

1 2 3 4 5 6 7 8 9

x = LstLignesSel.ListCount For i = 1 To x 'Rajout d'une colonne LstLignesSel.ColumnCount = 2 ' Récupération des valeurs présentes à partir de la colonne 11 + x LstLignesSel.AddItem LstLignesSel.List(i, 1) = LstLigDot.List(LstLigDot.ListIndex, i + 10) Next i

---

Code:

---

LstLignesSel.ColumnCount = 2

---

cette propriéte peut-être renseignée en "disgnmode" (lorsque tu poses les composants sur le userform). Si tu souhaites la changer en cours de route, inutile de mettre cette ligne dans la boucle, il faut la mettre avant la boucle, le changement de nombre de colonne s'applique sur l'ensemble de la listbox/combobox.
De plus VBA adapte automatiquement le nombre de colonne lors des appels à List(..,...) en écriture. Donc cette ligne peut simplement disparaitre.

Code:

---

LstLignesSel.AddItem

---

Cette ligne ajoute une nouvelle ligne, tu peux même préciser la valeur que tu veux mettre dans cette nouvelle ligne (1ere colonne) en paramètre.

Du coup il me semble qu'il y a une incohérence
Je déduit que LstLignesSel a déjà le nombre de lignes dont tu as besoin puisque x fait référence à LstLignesSel.listcount

ça donnerait un truc comme ça (non testé) que tu peux mettre à la place de la partie de code citée en début de mon message

Code:

---

1 2 3 4

For i = 0 To LstLignesSel.ListCount ' Récupération des valeurs présentes à partir de la colonne 11 + x LstLignesSel.List(i, 1) = LstLigDot.List(LstLigDot.ListIndex, i + 11) Next i

---

[Edit]
Attention aux borne de la boucle for, c'est une base 0 ici, donc la première ligne à l'index 0
[/Edit]
++
Qwaz

Bonjour Qwazerty,

merci pour les corrections.
Malheureusement, cela ne suffit pas à solutionner mon problème, j'ai toujours la même erreur.

Je me demande si le problème ne vient pas de la façon dont la listbox LstLignesSel est remplie à l'ouverture du formulaire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

usf_Dot.cbLignes.Clear Set f = Sheets("data") Set mondico = CreateObject("Scripting.Dictionary") a = f.Range("H2:H" & f.[H65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité For i = LBound(a) To UBound(a) If a(i, 1) <> "" Then mondico(a(i, 1)) = "" Next i '--avec tri temp = mondico.keys Call Tri(temp, LBound(temp), UBound(temp)) usf_Dot.LstLignesSel.List = temp

---

c'est peut-être le fait d'utiliser un tableau qui me pose problème lorsque je veux rajouter les données dans la colonne supplémentaire.

Salut

Je ne pense pas non, si tu avais utiliser RowSource là oui ça aurait posé problème mais sinon logiquement non.

Tu aurais un petit fichier qui produit cette erreur.

[Edit]
J'ai modifié un peu le code mais ça ne changera rien. Par contre je veux bien voir ta fonction Tri, à mon avis elle peut-être améliorée, il n'est pas utile de passer en paramètre les borne LBound et Ubound, il faut le faire à l'intérieur de ta procédure. Après il existe déjà pas mal de procédure qui propose de faire celà, tu en trouvera sur le site de BoisGontierJacques qui t'a répondu au début de la conversation.

Code:

---

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

Sub Essai() Dim F As Worksheet Dim MonDico As New Dictionary 'Plus pratique en phase de création du code. Il faut ajouter Microsoft scripting Runtime dans "Outils" "Références..." Dim a As Variant, Temp Dim i As Integer   usf_Dot.cbLignes.Clear Set F = ThisWorkbook.Sheets("data") 'Set MonDico = CreateObject("Scripting.Dictionary") a = F.Range("H2:H" & F.Cells(F.Rows.Count, "H").End(xlUp).Row).Value ' tableau a(n,1) pour rapidité For i = LBound(a) To UBound(a) If a(i, 1) <> "" Then MonDico(a(i, 1)) = "" Next i '--avec tri If MonDico.Count > 0 Then Temp = MonDico.Keys Call Tri(Temp, LBound(Temp), UBound(Temp)) usf_Dot.LstLignesSel.List = Temp End If End Sub

---

[/Edit]
++
Qwaz