ListBox a 2 colonnes
Résolu
colombe88
Messages postés
41
Statut
Membre
-
colombe88 Messages postés 41 Statut Membre -
colombe88 Messages postés 41 Statut Membre -
Bonjour,
j'utiles le code suivant pour remplir une listbox sans les cellules vides. J'aimerai garder la meme structure et remplir ma liste a 2 colonnes. pour l'instant juste la colonne A est considerer j'aimerai poutant ("A:B"). Merci pour votre aide
Dim Blatt1 As Worksheet
Set Blatt1 = ActiveWorkbook.Worksheets("Filter_UT_ED")
With Auftrag_List
For l = 1 To Blatt1.UsedRange.Rows.Count
.ColumnCount = 2
If Cells(l, 1).Value <> "" Then
.AddItem Cells(l, 1).Value
End If
Next l
End With
j'utiles le code suivant pour remplir une listbox sans les cellules vides. J'aimerai garder la meme structure et remplir ma liste a 2 colonnes. pour l'instant juste la colonne A est considerer j'aimerai poutant ("A:B"). Merci pour votre aide
Dim Blatt1 As Worksheet
Set Blatt1 = ActiveWorkbook.Worksheets("Filter_UT_ED")
With Auftrag_List
For l = 1 To Blatt1.UsedRange.Rows.Count
.ColumnCount = 2
If Cells(l, 1).Value <> "" Then
.AddItem Cells(l, 1).Value
End If
Next l
End With
A voir également:
- Vba listbox additem plusieurs colonnes
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Comment faire des colonnes sur word - Guide
- Inverser deux colonnes excel - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum Programmation
4 réponses
Bonjour,
Un exemple de remplissage de listbox à 2 colonnes :
Un exemple de remplissage de listbox à 2 colonnes :
Private Sub UserForm_Initialize()
Dim i As Byte
ListBox1.Clear
ListBox1.ColumnCount = 2
For i = 1 To 10
ListBox1.AddItem Sheets("Feuil1").Range("A" & i)
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Feuil1").Range("B" & i)
Next i
End Sub