code listbox a modifier pour fonctionner dans une litview

[grisan29]

bonjour a vous tous
comment puis je modifier ce code issu d'une listbox afin qu'il fonctionne dans une listview

Sub essai()
    Dim DerL As Long

    With Ws
        DerL = .Range("A65536").End(xlUp).Row
        UserForm2.ListBox1.List = .Range("A2:L" & DerL).Value
    End With

End Sub

j'ai bien essayer de mettre

UserForm2.ListView1.ListItems= .Range("A2:L" & DerL).Value

mais cela ne fonctionne pas
ce code est lancé a partir d'une recherche dans une combobox dont voici son code

Private Sub ComboBox1_Change()

    If Me.ComboBox1 <> "" Then
        Listbox1.List.Clear
        Set Ws = Sheets(Me.ComboBox1.Text)
        Call essai
        IniCbo2    'module1
    End If

End Sub

que j'ai modifié comme ceci mais est-ce correct

Private Sub ComboBox1_Change()

    If Me.ComboBox1 <> "" Then
        ListView1.ListItems.Clear
        Set Ws = Sheets(Me.ComboBox1.Text)
        Call essai
        IniCbo2    'module1
    End If

End Sub

Merci de vos idées
cordialement
Pascal

 

[jp14]

Re : code listbox a modifier pour fonctionner dans une litview

Bonjour

Pour remplir une listview il faut la définir soit par programme soit en utilisant l'option personnalisé des propriétés.
Ensuite il faut la remplir en utilisant Add

JP

 

[grisan29]

Re : code listbox a modifier pour fonctionner dans une litview

bonjourjp14
normalement la listview devrai se charger si le module essai ne bug pas a cette ligne en disant que l'objet requis est une erreur 424

UserForm2.ListView1.ListItems = .Range("A2:L" & DerL).Value

je t'envoi mon fichier que je viens de créer mais quasiment tous fonctionnais sous listbox
il y a aussi les boutons remonter et descendre ainsi que supp lignequi fonctionnais directement dans la feuille peut t'on les faire fonctionner dans la listview

cordialement

Pascal