blord
XLDnaute Impliqué
Bonjour à tous,
J'utilise le code suivant (que j'ai trouvé sur le forum : merci !) pour alimenter un listbox multicolonnes :
Sub IniListbox1()
Dim Plg As String, Nbligne As Integer
Nbligne = Sheets("PRET").Range("A65536").End(xlUp).Row
Plg = Sheets(1).Range("A3:E" & Nbligne).Address
With ListBox1
.ColumnCount = 5
.ColumnWidths = "55;60;100;60;70"
.ColumnHeads = True
.RowSource = "PRET!" & Plg
End With
End Sub
Dans ma liste de données, j'ai des lignes de couleur. J'aimerais que les lignes marquées en couleur (jaune par exemple) ne soit pas affichées dans le listbox.
Donc, si ligne est jaune, pas dans le listbox, si ligne autre couleur que jaune, affichée dans le listbox.
Est-ce que celà est possible ?
Merci infiniment pour votre aide...
J'utilise le code suivant (que j'ai trouvé sur le forum : merci !) pour alimenter un listbox multicolonnes :
Sub IniListbox1()
Dim Plg As String, Nbligne As Integer
Nbligne = Sheets("PRET").Range("A65536").End(xlUp).Row
Plg = Sheets(1).Range("A3:E" & Nbligne).Address
With ListBox1
.ColumnCount = 5
.ColumnWidths = "55;60;100;60;70"
.ColumnHeads = True
.RowSource = "PRET!" & Plg
End With
End Sub
Dans ma liste de données, j'ai des lignes de couleur. J'aimerais que les lignes marquées en couleur (jaune par exemple) ne soit pas affichées dans le listbox.
Donc, si ligne est jaune, pas dans le listbox, si ligne autre couleur que jaune, affichée dans le listbox.
Est-ce que celà est possible ?
Merci infiniment pour votre aide...