ListBox a 2 colonnes

Résolu

Colonne

colombe88 Messages postés 35 Date d'inscription Statut Membre Dernière intervention -
colombe88 Messages postés 35 Date d'inscription Statut Membre Dernière intervention - 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
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

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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 Statut Modérateur Dernière intervention 2 761

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 Statut Membre Dernière intervention

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

Récuperer dans une colonne valeur cellule non vide

Tri sur vba

index, equiv, plusieurs critères

Ajustement automatique largeur colonne

Comment inverser l'ordre d'une ligne excel

comparer 2 colonnes et supprimer des doublons

Votre réponse

Discussions similaires