ListBox a 2 colonnes

Résolu/Fermé

Colonne

colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014 - 27 juin 2013 à 11:49
colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014 - 27 juin 2013 à 13:51

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

A voir également:

Vba listbox additem plusieurs colonnes
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Word colonnes indépendantes - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide
Vba range avec variable ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
27 juin 2013 à 11:59

Bonjour,

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

Réponse 3 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
27 juin 2013 à 12:58

Avec un if...

Dans ton code, tu tries si A est non vide :

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

Alors ma question :
Si A est non vide est ce que B l'est également?
Si oui ton code devient :

Dim Blatt1 As Worksheet

Set Blatt1 = ActiveWorkbook.Worksheets("Filter_UT_ED")
With Auftrag_List
    .ColumnCount = 2
    For l = 1 To Blatt1.UsedRange.Rows.Count
        If Cells(l, 1).Value <> "" Then
            .AddItem Cells(l, 1).Value
            .List(Auftrag_List.ListCount - 1, 1) = Cells(l, 2).Value
        End If
    Next l
End With

colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014
27 juin 2013 à 13:51

Justement si A est Vide B l'est aussi.. ce code fonctionne Parfaitement ..
le Precedent aussi !!! alors j'ai meme le choix.. merci encore !!

Discussions similaires

additem listbox en multicolonnes

Listbox à 4 colonnes dans un userform !! aide !!

[VBA] remplir une listBox

Comprendre l'utilisation d'une listbox excel vba

[vba/excel] recuperer selection listbox

Récuperer dans une colonne valeur cellule non vide

Discussions similaires

Newsletters