De listbox multi colonne a une autre multi colonne [Résolu/Fermé]
A voir également:
- Vba listbox additem plusieurs colonnes
- De listbox multi colonne a une autre multi colonne ✓ - Forum - VB / VBA
- Listbox deux colonnes affichée dans deux cellules Excel ✓ - Forum - VB / VBA
- Recherche dans une listbox avec colonnes ✓ - Forum - VB / VBA
- Listbox 2 colonnes ✓ - Forum - Excel
- Choix unique dans combobox multi colonnes ✓ - Forum - VB / VBA
2 réponses
f894009
- Messages postés
- 15519
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 16 janvier 2021
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