mais cela ne fonctionne pas
ce code est lancé a partir d'une recherche dans une combobox dont voici son code
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
Code:
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
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
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