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

petchy · 25 Juin 2004

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 · 25 Juin 2004

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 · 25 Juin 2004

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

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

petchy

Guest

myDearFriend

Guest

Pièces jointes

petchy

Guest

Discussions similaires

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

petchy

Guest

myDearFriend

Guest

Pièces jointes

petchy

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency