color resultat listbox

[amandine]

bonsoir à tous

j'utilise code pour saisir une feuille de calcul à l'aide d'une listbox,j'aimerais avoir le resultat de la saisie en rouge

merci a tous de votre aide


Private Sub ListBox2_Click()

ActiveCell.Value = ListBox2

ActiveCell(1, 5).Value = ListBox2.Column(2)
If ActiveCell.Value = '' Then ActiveCell(1, 5).Value = ''

Unload Me
End Sub

 

[pierrejean]

bonsoir amandine

teste

ActiveCell.Value = ListBox2
ActiveCell.Font.ColorIndex = 3

 

[amandine]

MERCI beucoup et bonne soirée
amandine