missaudrey
XLDnaute Nouveau
Bonsoir le forum,
J'ai essayé d'utiliser un exmple de code fourni par un membre du forum sans succès. C'est à propos des listview. le code est le suivant:
Private Sub UserForm_Initialize()
Dim vLi As Long
'ListView triée
For vLi = 2 To [A6000].End(xlUp).Row
ListView1.ListItems.Add , , Range("A" & vLi)
Next
'ComboBox trié sans doublon
For vLi = 1 To ListView1.ListItems.Count
ComboBox1 = ListView1.ListItems(vLi)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ListView1.ListItems(vLi)
Next
ComboBox1 = ""
End Sub
J'ai effectué de recherches sur le net, mais le code bugge toujours. Il me dit que listview1 n'es pas définie et je ne sais le faire.
Une aide? merci d'avance!!
J'ai essayé d'utiliser un exmple de code fourni par un membre du forum sans succès. C'est à propos des listview. le code est le suivant:
Private Sub UserForm_Initialize()
Dim vLi As Long
'ListView triée
For vLi = 2 To [A6000].End(xlUp).Row
ListView1.ListItems.Add , , Range("A" & vLi)
Next
'ComboBox trié sans doublon
For vLi = 1 To ListView1.ListItems.Count
ComboBox1 = ListView1.ListItems(vLi)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ListView1.ListItems(vLi)
Next
ComboBox1 = ""
End Sub
J'ai effectué de recherches sur le net, mais le code bugge toujours. Il me dit que listview1 n'es pas définie et je ne sais le faire.
Une aide? merci d'avance!!