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
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
Poser une question
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
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
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
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
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