Mise en forme d'une ListBox

[dbonneaud]

Bonjour à tous,
Comment donner à une ligne ListBox une couleur spècifique en fonction d'un critère, si Feuil6.Cells(x, 6) = 0
Exemple :
Public Sub rempliFeuil1()
Dim pole As Integer
Dim x
Feuil1.ListBox1.Clear
For x = 2 To Feuil6.Range("G100").End(xlUp).Row
Feuil1.ListBox1.AddItem (Feuil6.Cells(x, 1))
pole = Feuil1.ListBox1.ListCount - 1
Feuil1.ListBox1.List(pole, 1) = Feuil6.Cells(x, 2)
Feuil1.ListBox1.List(pole, 2) = Feuil6.Cells(x, 3)
Feuil1.ListBox1.List(pole, 3) = Feuil6.Cells(x, 4)
Feuil1.ListBox1.List(pole, 4) = Format(Feuil6.Cells(x, 5), "##,##0")
Feuil1.ListBox1.List(pole, 5) = Format(Feuil6.Cells(x, 6), "##,##0")
Next
End Sub
Merci pour votre aide

 

[fhoest]

Re : Mise en forme d'une ListBox

Bonjour a tous les deux
voici sur le site de Boisgontier (que je salut au passage)
une simulation de listbox en couleur
A étudier ???
chercher Simulation listbox couleur dans :Formation Excel VBA JB
A+