Bonjour,
j'ai une listebox qui marche presque bien mais il doit manquer quelque chose
en lancant le formulaire je vois apparaitre tous les codes en colonne C: il y a deux conditions:
If Cells(L, 6).Interior.Color <> 10025880 And Cells(L, 4) = "Error" Then
les conditions sont respectees ce qui est cool.
toutefois les codes apparaissent a repetition
sauriez vous comment voir que les codes une fois dans le listbox?
Merci de votre aide
Private Sub UserForm_Initialize()
Dim L As Long
For L = 6 To [C65000].End(xlUp).Row
If Cells(L, 6).Interior.Color <> 10025880 And Cells(L, 4) = "Error" Then
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Cells(L, 3)
End If
Next
For L = 1 To ComboBox1.ListCount - 1
If ComboBox1.List(L) <> "" Then ListView1.ListItems.Add , , ComboBox1.List(L)
Next
For L = 1 To ListView1.ListItems.Count
ListBox1.AddItem ListView1.ListItems(L)
Next
End Sub