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