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

Le
Alex
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:=False
'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;8=
0;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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Alex
Le #24194811
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
Jacquouille
Le #24194931
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 :


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
Alex
Le #24194991
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
Jacquouille
Le #24195061
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 :


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
Jacky
Le #24195121
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"
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
Alex
Le #24195231
Merci Jacky

Alex
MichD
Le #24195301
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 :


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
Publicité
Poster une réponse
Anonyme