ListBox rechercher ligne Non Colorées

Résolu/Fermé

lanxade Messages postés 29 Date d'inscription jeudi 30 avril 2009 Statut Membre Dernière intervention 8 avril 2023 - 28 juil. 2009 à 15:00
lanxade Messages postés 29 Date d'inscription jeudi 30 avril 2009 Statut Membre Dernière intervention 8 avril 2023 - 31 juil. 2009 à 14:24

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

A voir également:

ListBox rechercher ligne Non Colorées
Rechercher ou entrer l'adresse - Guide
Adresse IP locale : comment la trouver facilement - Guide
Aller à la ligne excel - Guide
Hors ligne instagram - Guide
Vente en ligne particulier - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
28 juil. 2009 à 22:38

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.

lanxade Messages postés 29 Date d'inscription jeudi 30 avril 2009 Statut Membre Dernière intervention 8 avril 2023
31 juil. 2009 à 14:24

Bonjour Gbinform,

Le code marche trés bien je peux ainsi continuer mon programme

Encore Merci !

Discussions similaires

recherche à partir de la barre d'adresse

Statut « en ligne » alors que non

On me voit connecté sur facebook alors que je n'y suis pas

Que veut dire "correspondant occupé" lors d'un appel ?

En ligne sur Messenger alors que non

Discussions similaires

Newsletters