ListBox rechercher ligne Non Colorées
Résolu
lanxade
Messages postés
32
Statut
Membre
-
lanxade Messages postés 32 Statut Membre -
lanxade Messages postés 32 Statut Membre -
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
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
- Partager photos en ligne - Guide
- Rechercher ou entrer l'adresse - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Rechercher image - Guide
1 réponse
bonjour
Tu peux modifier ton code ainsi :
Les lignes qui ont un fond coloré ( Interior.ColorIndex ) en colonne A sont ignorées.
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.
Le code marche trés bien je peux ainsi continuer mon programme
Encore Merci !