De listbox multi colonne a une autre multi colonne [Résolu/Fermé]

- - Dernière réponse :  Saddoud walid - 12 nov. 2014 à 09:54
Bonjour,


Je cherche à ajoute une ligne d'une listbox multi colonne à une autre listbox multi colonne sans modifier l'ordre de colonne, j'ai pu ajouter une seul colonne :
Le code de cette colonne est :
Private Sub CommandButton2_Click()
With ListBox2
.ColumnCount = 4
.ColumnWidths = "80;400;100;100"
.RowSource = ""
End With
For i = 0 To ListBox1.ListCount - 1
IF ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i, 0)
Next i
End Sub
Merci d'avance
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
14892
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 décembre 2019
1197
1
Merci
Bonjour,

Private Sub CommandButton2_Click()
With ListBox2
.ColumnCount = 4
.ColumnWidths = "80;400;100;100"
.RowSource = ""
.Clear
End With
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i, 0)
ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1)
ListBox2.List(ListBox2.ListCount - 1, 2) = ListBox1.List(i, 2)
ListBox2.List(ListBox2.ListCount - 1, 3) = ListBox1.List(i, 3)
End If
Next i
End Sub

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62686 internautes nous ont dit merci ce mois-ci

0
Merci
merci bien f894009, bien fait