listview error compilation

[news]

Bonsoir à tous du forum,

En sélectionant une ligne/item du listview d'un userform.
les donneés de ce listview seront mis dans 4 textbox.

le code utilisé est :

Private Sub ListView02_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim k As Byte
TextBox1 = ListView02.ListItems(ListView02.SelectedItem.Index).Text
For k = 1 To 3
Controls("TextBox" & k + 1) = ListView02.ListItems(ListView02.SelectedItem.Index).ListSubItems(k)
Next
End Sub

mais bug, reçoit msgbox "Erreur de compilation, type défini par l'utilisateur non définie".

j'utilise Windows XP, Excel 2003
si je mets les données : ByVal Item As
il n' a pas de code MSComctlLib.ListItem proposé par Excel,

ne sait pas d'ou est l'erreur, comment résoudre,

news

 

[Compte Supprimé 979]

Re : listview error compilation

Salut News,

As-tu regardé si tu n'as pas une référence [MANQUANTE]

Editeur VBA -> Outils -> Références
Si oui : décoche la référence qui manque
et recompile ton code

A+

 

[youky(BJ)]

Re : listview error compilation

Bonjour le Fil,
News,
......Index ).SubItems(k)
au lieu de
......Index ).ListSubItems(k)

non testé
Les textbox doivent bien sur être sur un Userform
A+

 

[news]

Re : listview error compilation

bonsoir à tous du forum,

Re: BrunoM45
sous outils, référence est indiqué : MANQUE RefEditControl ?
et comment on l'ajoute? j'ai fait une recherche, trouve sous Program Files, Microsoft Office,
je click sur Ok, mais tj. bug,
alors il y a d'autres références qui manquent ?, mais VBA Excel ne les indique pas, mais s'arrête à la même macro et indique "Erreur Comilation" lorsque j'utilise le débogage ( touche F5),

Comment résoudre ?

Sur un autre exemple de fichier avec listview se trouve également le vba code
Private Sub ListView02_ItemClick(ByVal Item As MSComctlLib.ListItem)
et en effectuant la macro aucun message d'erreur de compilation est indiqué.

mais avec le fichier que j'utilise, il y a erreur de compilation,
Re: youky(BJ)
changer Index ).SubItems(k) au lieu de Index ).ListSubItems(k)
j'ai modifié, mais tj. est indiqué erreur de compilation

ne sait pas encore aveancer avec ce bug,

news

 

[Compte Supprimé 979]

Re : listview error compilation

Salut News,

Si RefEdit est manquant, il faut le décocher et quitter Excel en enregistrant ton fichier

Ensuite sur Windows -> menu Démarrer -> Exécuter

Pour Office 2003, tu colles cette ligne et ok
resvr32.exe C:\Program Files\Microsoft Office\OFFICE11\REFEDIT.DLL

Pour Office 2007, tu colles cette ligne et ok
resvr32.exe C:\Program Files\Microsoft Office\OFFICE12\REFEDIT.DLL

Sinon, peux-tu nous joindre ton fichier qui pose problème ?
ou le mettre sur cijoint.com ?

A+

 

[news]

Re : listview error compilation

Re: BrunoM45
merci d'avoir pris le temps et me donné des astuces comment résoudre.

En fait sur un ordinateur (utilisant Windows XP), la référencee ref.edit.control
s'y trouve, mais il y a de bug quand même.
Sur l'autre ordinateur je vais essayer ton code proposé.

Le fichier ( beaucoup de bug sont affichés, si je fais compiler vba project ),
est déjà mis au fil suivant :

https://www.excel-downloads.com/threads/windows-vista-error-ne-peut-pas-ouvrir-fichier.125116/

news