Erreur de complilation

[Ilino]

Forum Bonsoir
ci dessous un code de listeview lors d'execution j'ai une erreur de complilation : Type défini par l'utilisateur non défini "

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
MsgBox ListView1.SelectedItem
End Sub

grazie

 

[Staple1600]

Re : Erreur de complilation

Bonsoir à tous

Ilino
Pièce jointe !!!

NB: Ton code fonctionne chez moi sur un userform avec une Listview correctement initialisée et remplie.

 

[Ilino]

Re : Erreur de complilation

Bonsoir
sorry ci joint le fichier teste
GRAZIE

 

[Staple1600]

Re : Erreur de complilation

Re

Ilino
Sauf erreur de ma part, je ne vois où dans ton code tu remplis tes combobox
Quand on affiche, l'userform, elles sont vides ?

Ce qui est gênant pour la suite (enfin surtout pour la ListView)

PS: Il est, j'oserai dire, pénible de devoir te dire à chaque fois de joindre un fichier exemple...

 

[Ilino]

Re : Erreur de complilation

Re

Ilino
Sauf erreur de ma part, je ne vois où dans ton code tu remplis tes combobox
Quand on affiche, l'userform, elles sont vides ?

Ce qui est gênant pour la suite (enfin surtout pour la ListView)

PS: Il est, j'oserai dire, pénible de devoir te dire à chaque fois de joindre un fichier exemple...

Re JM
GRAZIE pour les remarques
A+

 

[Staple1600]

Re : Erreur de complilation

Re

Ilino
Tes ComboBox sont toujours vides.
(Regardes dans l'aide VBA comment on remplit des ComboBox)

 

[Ilino]

Re : Erreur de complilation

Re

Ilino
Tes ComboBox sont toujours vides.
(Regardes dans l'aide VBA comment on remplit des ComboBox)

Re JM
je souhaite tester dans mon permier cas le comboBox1
Et dans le code j'ai fais ce code

Private Sub ComboBox1_KeyUp....
.....
With Sheets("FSEx 2014").[A1:A65536]
a+

 

[Staple1600]

Re : Erreur de complilation

Re

Ilino
No comments...

 

[Ilino]

Re : Erreur de complilation

rE MERCI ENCORE
Ci joint le bon fichier
La liste de ComboBox1 c'Est les données de la colonne A de la feuille FSEx 2014
merci GRAZIE

 

[Staple1600]

Re : Erreur de complilation

Re

Ilino
Ta ComboBox1 reste toujours désespérément vide...

Sauf si j'ajoute ceci
mais cela ne change rien pour ta Listview.
Private Sub UserForm_Initialize()
ComboBox1.List = Feuil1.Range("A2:A7").Value ' <- ajout ici