Changer la couleur du texte de ma listbox sous condition

[creolia]

bonsoir j'ai réussie a renseigner ma listbox grâce a ce code trouver ici

Private Sub UserForm_Initialize()
Dim tablotemp
tablotemp = Sheets("Administration").Range("A1:D100").Value
ListBox1.List = tablotemp


End Sub

je souhaiterais si possible que si la valeur de ma 4 eme colonne est inférieure a 3 elle passe au rouge comment puis je faire svp merci

 

[creolia]

Re : Changer la couleur du texte de ma listbox sous condition

merci a toi pour ton aide j'en ferais bon usage

 

[creolia]

Re : Changer la couleur du texte de ma listbox sous condition

bonsoir je reviens vers vous pour un complement d'information

pour changer la couleur de mes item dans ma listview sous condition j'utilise ceci

JR = Worksheets(£NomDeLaFeuilFormation).Cells(£lig, 9) '5 Col Jour Restant
    .ListItems(£item).ListSubItems(5).Text = JR '5 Col Jour Restant
           'remarque .ListSubItems(6).Text = £NomDeLaFeuilFormation déjà init à CreatListView1
    .ListItems(£item).ListSubItems(7).Text = £lig
    If Val(JR) < 5 Then
       .ListItems(£item).ListSubItems(1).ForeColor = &H80FF& 'orange
    ElseIf Val(JR) < 10 Then
       .ListItems(£item).ListSubItems(1).ForeColor = &HC0& 'rouge
    End If

je voudrais ajouter une condition suplementaire si celui si est vide

la couleur deviens grise

pouvez vous m'aider svp merci