Problème affichage contenu ListView

fyejumpy
Messages postés
125
Date d'inscription
dimanche 30 mars 2008
Statut
Membre
Dernière intervention
9 avril 2015
- Modifié par fyejumpy le 8/04/2015 à 15:56
fyejumpy
Messages postés
125
Date d'inscription
dimanche 30 mars 2008
Statut
Membre
Dernière intervention
9 avril 2015
- 9 avril 2015 à 12:49
Bonjour,


je dois faire un projet en Vb, le problème est que lorsque que je créer mes ListView dynamiquement et que je les stocke dans un tableau de ListView. je ne peux plus rien modifier.
Avant j'utilisé ce principe avec des listBox et cela marchait.

je ne comprend pas bien d'où peut provenir ce soucis, je n'ai aucun message d'erreurs.


Voici le code en question : en sachant que j'ai créer une variable globale pour avoir accès à mes listView dans n'importe quel fonction du userform.


Private Sub UserForm_Initialize()
'Initialisation de l'interface opérateur
'Le nombre d'onglet est calculé
NbOnglet = ActiveWorkbook.Sheets.Count
' // Partie multipage
'Redimensionnement du tableau
ReDim Preserve tabList(0 To NbOnglet)

'Nom des colonnes
ReDim nomCol(0, 0 To 16)
For i = 1 To 15
nomCol(0, i - 1) = Cells(1, i).Value
Next i

'j'ajoute au MultiPage une nouvelle page pour pouvoir la parcourir
MultiPage1.Pages.Add
'on prend le nom du premier onglet du fichier et on lui affecte
MultiPage1.Pages.Item(0).Caption = Worksheets(1).Name

For i = 1 To NbOnglet
'On stocke les noms des autres onglets dans un tableau
nomOnglet(i - 1) = Worksheets(i).Name
'on crée une nouvelle page
MultiPage1.Pages.Add
'On parcours l'ensemble des pages
For j = 1 To MultiPage1.Count - 1
'On change le nom des onglets
MultiPage1.Pages.Item(j).Caption = nomOnglet(j)
'on affecte dans un tableau de ListView les différentes listView
Set tabList(i - 1) = MultiPage1.Pages.Item(j - 1).Controls.Add("MsComCtlLib.ListViewCtrl.2", "ListView" & i)
'On paramêtre les listeViews
With tabList(i - 1)
For x = 1 To 15
.ColumnHeaders.Add , , nomCol(0, x - 1), 100
Next x
.View = lvwReport
.Width = 363
.Height = 102
End With
Next j
Next i

'On supprime la dernière page qui est en trop
MultiPage1.Pages.Remove (MultiPage1.Count - 1)
End Sub


le but de ce programme est que quelque soit le fichier excel utilisé celui-ci doit pouvoir s'adapter en conséquence d'où le faites que je doit tout créer sur le tas.

J'ai fais un test et il s'avère que quand j'ajoute un item :
tabList(0).ListItems.Add , , "test"


Puis en essayant de l'afficher en msgBox, celui ci s'affiche. Cependant il n'appartait pas dans la l'affichage de la listeView.

j'avoue ne pas trop comprendre..

Merci de bien vouloir m'aider,
Cordialement

1 réponse

fyejumpy
Messages postés
125
Date d'inscription
dimanche 30 mars 2008
Statut
Membre
Dernière intervention
9 avril 2015

9 avril 2015 à 12:49
Up :/
0