ListBox rechercher ligne Non Colorées Résolu

Question

Bonjour,
Soit :
> Un UserForm1 avec une ListBox1 à 5 colonnes vierge.
> Un Classeur ("Fichier") ouvert
> Une feuille de ce fichier comprenant un range ("A15:g41") ouverte
> Certaines  lignes de cette feuille sont Colorées.

J'ai pu rentrer par un code simple toutes les données de ce Range dans la ListBox (Colorées ou pas)
Dim TheData As Variant
    TheData = Worksheets(NomFeuil).Range("A15:G41")
            With Me.ListBox2
    .ColumnCount = 7
    .ColumnWidths = "30; 120; 00 ;00 ; 80;40;40"
    .List = TheData
        ListBox2.List(ListBox2.ListCount - 1, 0) = Worksheets(NomFeuil).Range("b15").Value

Ayant élaboré d'avantage le programme :
Je désire n'incrire, maintenant, dans la listeBox, que les lignes "non colorées".

Merci de votre attention

A bientôt

gbinforme · Answer

bonjour

Tu peux modifier ton code ainsi :
Dim lig As Long, col As Integer
With Me.ListBox2
    .ColumnCount = 7
    .ColumnWidths = "30;80; 00 ;00 ; 80;40;40"
    For lig = 15 To Range("G41").Row
        If Cells(lig, 1).Interior.ColorIndex < 0 Then
            .AddItem Cells(lig, 1)
            For col = 2 To Range("G41").Column
                .List(.ListCount - 1, col - 1) = Cells(lig, col)
            Next col
        End If
    Next lig
End With
Les lignes qui ont un fond coloré ( Interior.ColorIndex ) en colonne A sont ignorées.

ListBox rechercher ligne Non Colorées

1 réponse

Discussions similaires

Newsletters