Discussion :

[MartySalade]

Bonjour j'ai une listbox (DPT_number_clientLB) qui a trois colonnes je l'initialise ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
With Sheets("Projets")
j = 0
 
    For i = 2 To 945
        FindFolder.DPT_number_clientLB.ColumnCount = 3
        FindFolder.DPT_number_clientLB.ColumnWidths = "150;50;50"
        FindFolder.DPT_number_clientLB.AddItem
 
        If (.Cells(i, 1) = "x") Then 'Ne prend que les dossiers sélectionnés
            FindFolder.DPT_number_clientLB.Column(2, j) = .Cells(i, 4)
            FindFolder.DPT_number_clientLB.Column(1, j) = .Cells(i, 3)
            FindFolder.DPT_number_clientLB.Column(0, j) = .Cells(i, 5)
        End If
 
        j = j + 1
    Next i
End With

Dans mon fichier Excel je met des "x" pour sélectionner certaines lignes donc toutes les lignes ne s'affichent pas et j'ai donc des lignes vides dans ma ListBox.
Cependant je n'arrive pas à supprimer ces lignes vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'Retire les lignes vides de la ListBox
For n = FindFolder.DPT_number_clientLB.ListCount - 1 To 1 Step -1
    If FindFolder.DPT_number_clientLB.Column(0, n) = "" Or FindFolder.DPT_number_clientLB.Column(1, n) = "" Or FindFolder.DPT_number_clientLB.Column(2, n) = "" Then
        FindFolder.DPT_number_clientLB.RemoveItem n
    End If
Next n

Aucune erreur n'est générée mais aucune ligne n'est supprimée non plus...

Merci d'avance pour votre aide

[Thautheme]

Bonjour Marty, bonjour le forum,

Si j'ai compris (ce qui est rare...), essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim OP As Worksheet
Dim I As Integer
 
Set OP = Sheets("Projets")
With FindFolder.DPT_number_clientLB
    .ColumnCount = 3
    .ColumnWidths = "150;50;50"
    For I = 2 To 945
        If OP.Cells(I, 1) = "x" Then 'Ne prend que les dossiers sélectionnés
            .AddItem
            .Column(2, .ListCount - 1) = OP.Cells(I, 4)
            .Column(1, .ListCount - 1) = OP.Cells(I, 3)
            .Column(0, .ListCount - 1) = OP.Cells(I, 5)
        End If
    Next I
End With

[MartySalade]

Bonjour,

Merci pour ta réponse rapide, cela fonctionne parfaitement.

Cordialement,

Marty