récupérées les données qui sont écrit en rouge

[petchy]

Bonjour le Forum,

dans une listbox je récupere des données.
est il possible de récupérées les données qui sont écrit en rouge et rien que cela,car ses les données "sorties"" et les données "entrées" sont ecrit en noir.

Petchy

 

[myDearFriend]

Bonjour Petchy

Ci-joint un exemple qui peut répondre à ta demande.

Le code utilisé est :

Private Sub UserForm_Initialize()
Dim L As Long
Dim i As Long
L = Range("A65536").End(xlUp).Row
For i = 1 To L
If Cells(i, 1).Font.ColorIndex = 3 Then
ListBox1.AddItem Cells(i, 1).Value
End If
Next i
End Sub


Cordialement,
Didier_mDF

 

[petchy]

bonsoir Didier_mDF et le forum

merci Didier_mDF c'est super,j'ai pu adapté ton exemple sur mon appli.
trop classe

bon Week-End
@ plus
petchy