Coloré ligne d'un listbox si l'une des cellules de la zone d'extraction est différent de rien

Re :

J'ai tenté d'écrire cela, mais ca beug :

With Me.ListBox1
If RowSource.Range("BDD!GL" & i).Value <> "" Then
RowSource.Font.ColorIndex = 3
End If
End With

Bonjour
Un simple... ne suffirait pas ?
For each c in range ("GL1:GL100")
If [c] <>"" then
c.interior.colorindex=3
end if
next

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Alex" a écrit dans le message de groupe de discussion :
c4a670fe-b5d9-4292-af1e-3f5a1f64bbd2@v14g2000vbc.googlegroups.com...

Re :

J'ai tenté d'écrire cela, mais ca beug :

With Me.ListBox1
If RowSource.Range("BDD!GL" & i).Value <> "" Then
RowSource.Font.ColorIndex = 3
End If
End With

Bonjour Jacquouille,

Merci pour ta proposition.
J'ai tenté de l'intégrer avec les lignes de commande With Me.listBox1
et j'ai modifié le Range pour l'adapter à ma plage, mais cela ne donne
rien.
Ca ne joue pas non plus sur ma feuille.

Alex

Re
Tel que c'est écrit, cela balaiera la plage("GL1:GL100") de la feuille
active....sauf erreur.
AMHA, cela devrait être possible de faire fonctionner ce code, après
l'exécution de ta macro.
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Alex" a écrit dans le message de groupe de discussion :
24788b7e-4237-49f6-b7bb-8a05ac615cc5@u20g2000yqb.googlegroups.com...

Bonjour Jacquouille,

Merci pour ta proposition.
J'ai tenté de l'intégrer avec les lignes de commande With Me.listBox1
et j'ai modifié le Range pour l'adapter à ma plage, mais cela ne donne
rien.
Ca ne joue pas non plus sur ma feuille.

Alex

Bonjour,

Je voudrais savoir si il est possible de colorer dans mon listbox toutes les lignes issues de ma zone
d'extraction

Sans monter une usine à gaz les lignes d'un ListBox sont "non coloriable"

--
Salutations
JJ


"Alex" <alex-m@orange.fr> a écrit dans le message de news:
be43a25b-5fa5-459a-b271-04c728f3f4a2@v14g2000vbc.googlegroups.com...
Bonjour à tous,

Je voudrais savoir si il est possible de colorer dans mon listbox
toutes les lignes issues de ma zone d'extraction qui comporterait une
données différentes de rien. Il s'agit de l'avant dernière colonne de
ma zone d'extraction (colonne GL), si celle-ci à une valeur, je
souhaiterais que la ligne apparaissent en rouge par exemple.

Voici les lignes de commande qui me permettent d'obetnir ma listbox :

'definition du filtre
Range("BDD!A1:Base").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("BDD!Criteres"), CopyTorange:=Range( _
"BDD!Extraction"), unique:úlse
'Alimentation de liste avec les donnees de la zone d'extraction
dernierRechIMMEUBLE = Range("BDD!GM2").End(xlDown).Address
ListBox1.RowSource = "BDD!FF2:" & dernierRechIMMEUBLE
ListBox1.ListIndex = 0
With Me.ListBox1
'largeur des colonnes dans le listbox
.ColumnWidths "150;50;30;30;30;30;30;30;30;30;50;20;20;20;30;30;30;40;50;50;50;50;50;50;80;50;30;30;30;30"
End With

Pour info :
Base = a la plage BDD!A1:CW5000
Criteres = a la plage BDD!DQ1:EX2
Extraction = a la plage BDD!FF1:GM1

Merci par avance de votre aide.
Bien cordialement.
Alex

Merci Jacky

Alex

Bonjour,

Voici un fichier exemple de Andy Pope : http://cjoint.com/?BAzo553puKi

Je suppose que tu peux le raffiner si tu as un peu de temps à ta disposition ! ;-)



MichD
------------------------------------------
"Alex" a écrit dans le message de groupe de discussion :
be43a25b-5fa5-459a-b271-04c728f3f4a2@v14g2000vbc.googlegroups.com...

Bonjour à tous,

Je voudrais savoir si il est possible de colorer dans mon listbox
toutes les lignes issues de ma zone d'extraction qui comporterait une
données différentes de rien. Il s'agit de l'avant dernière colonne de
ma zone d'extraction (colonne GL), si celle-ci à une valeur, je
souhaiterais que la ligne apparaissent en rouge par exemple.

Voici les lignes de commande qui me permettent d'obetnir ma listbox :

'definition du filtre
Range("BDD!A1:Base").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("BDD!Criteres"), CopyTorange:=Range( _
"BDD!Extraction"), unique:úlse
'Alimentation de liste avec les donnees de la zone d'extraction
dernierRechIMMEUBLE = Range("BDD!GM2").End(xlDown).Address
ListBox1.RowSource = "BDD!FF2:" & dernierRechIMMEUBLE
ListBox1.ListIndex = 0
With Me.ListBox1
'largeur des colonnes dans le listbox
.ColumnWidths "150;50;30;30;30;30;30;30;30;30;50;20;20;20;30;30;30;40;50;50;50;50;50;50;80;50;30;30;30;30"
End With

Pour info :
Base = a la plage BDD!A1:CW5000
Criteres = a la plage BDD!DQ1:EX2
Extraction = a la plage BDD!FF1:GM1

Merci par avance de votre aide.
Bien cordialement.
Alex