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