XL 2016 Probleme d'Initialisation de Userform avec listView

KTM

XLDnaute Occasionnel
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
 

Roblochon

XLDnaute Impliqué
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

XLDnaute Occasionnel
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
 

ChTi160

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Fichiers joints

Discussions similaires


Haut Bas