XL 2016 Probleme d'Initialisation de Userform avec listView

[KTM]

Bonjour Chers tous
J"aimerais avoir des explications sur un phenomene que je ne comprends pas
Quand je lance mon userform je tombe sur une erreur
Quand je modifie mon code dans Userform_Initialize en remplacant lvwReport par 3et en supprimant lvwColumnCenter pas de soucis.
Je peux savoir les raisons possibles ? Merci

Private Sub UserForm_Initialize()
Dim cpt, temp, a
With ListView1
.Gridlines = True
.View = 3 'lvwReport
.FullRowSelect = True
With .ColumnHeaders
.Add , , "CodePatient", 80
.Add , , "Mois", 60
.Add , , "Protocole", 75
.Add , , "N.Inclusion", 55 ', lvwColumnCenter
.Add , , "Age", 50 ', lvwColumnCenter
.Add , , "Sexe", 50 ', lvwColumnCenter
.Add , , "Dotation", 50 ', lvwColumnCenter
.Add , , "CTX", 40 ', lvwColumnCenter
.Add , , "Statut", 55 ', lvwColumnCenter
.Add , , "Echeance", 60
.Add , , "Ligne", 55 ', lvwColumnCenter
End With
End With

 

[Hasco]

Bonjour,

Vérifiez dans outils/références que la bibliothèque Microsoft Windows Common Control... soit bien référencée.
Tester avec le nom qualifié des constantes : mscomctllib.lvwReport

Sinon il vous faudra vous fendre d'un classeur exemple reproduisant le problème. Ce qui aurait du déjà être fait.

Bonne journée

 

[KTM]

Bonjour,

Vérifiez dans outils/références que la bibliothèque Microsoft Windows Common Control... soit bien référencée.
Tester avec le nom qualifié des constantes : mscomctllib.lvwReport

Sinon il vous faudra vous fendre d'un classeur exemple reproduisant le problème. Ce qui aurait du déjà être fait.

Bonne journée

Microsoft Windows Common Control... bien référencée.
Voici le message d'erreur:

Erreur de compilation
Variable non définie
lvwReport est mis en jaune

 

[Hasco]

Re,

Et avez-vous bien lu ma réponse précédente et tester mscomctllib.lvwReport ?

Bon tests

 

[ChTi160]

Bonjour KTM
Bonjour le Fil（Roblonchon）,le Forum
je ne sais pas si la listview a ete installee par toi sur le Userfom , si ce n est pas le cas essais de la remplacer.
tu peux aussi remplacer ”lvwColumnCenter” par une valeur de 0 a 2
jean marie

 

[ChTi160]

Re
une image des Références Cochées .
j'ai créée un Userform mis une Listview1 et ton Code avec les "lvwColumnCenter" et "lvwReport"
en services dan la procédure du UserForm_Initialize Lol
pas de message d'erreur , la Listview1 s'est bien affichée avec les colonnes.
a voir donc !
jean marie