Filtrer un listbox avec des lignes de couleur

[blord]

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...

 

[Luki]

Re : Filtrer un listbox avec des lignes de couleur

Bonjour,

Vite fait une piste en passant:

C'est possible, mais pas avec "ROWSOURCE".
Il faudra remplir ton listbox via "Additem" en faisant une boucle sur ta plage et en regardant la couleur de la ligne.par ex: cells(x,y).interior.colorindex

Désolé, pas le temps de faire plus ce matin.
Bonne recherche

 

[ChTi160]

Re : Filtrer un listbox avec des lignes de couleur

Salut blord
bonjour Luki
en pièce jointe une approche (il y en a d'autres lol 😛 ) avec un tableau ou l'on récupère les données ainsi que le numero de la couleur(arff ca peut servir ensuite pour faire autre chose lol) tout en remplissant la listbox

Le Fichier :Regarde la pièce jointe Test Interior.colorIndex.xls

bonne journée

 

[blord]

Re : Filtrer un listbox avec des lignes de couleur

Bonjour Luki,
Bonjour Jean Marie,
Le forum,

Merci pour vos suggestions, je vais essayer le tout à mon retour du travail ce soir, heure du Québec...

Bonne journée !