Bonsoir le forum,
J'aimerai alimenter le nombre de ligne automatiquement d'un listview.
J'arrive à définir les colonnes, mais je voudrais définir les lignes automatiquement en fonction de ma base de données (sur feuille excel), j'ai essayé mais je comprend pas comment ca marche..
j'ai essayé le code suivant mais ca ne marche pas
Pourriez-vous me guider?
merci
zourite
J'aimerai alimenter le nombre de ligne automatiquement d'un listview.
J'arrive à définir les colonnes, mais je voudrais définir les lignes automatiquement en fonction de ma base de données (sur feuille excel), j'ai essayé mais je comprend pas comment ca marche..
j'ai essayé le code suivant mais ca ne marche pas
Code:
Private Sub UserForm_Initialize()
'----- remplissage ListView------------------------
With ListView1
'Définit le nombre de colonnes et Entêtes
With .ColumnHeaders
'Supprime les anciens entêtes
.Clear
'Ajoute 3 colonnes en spécifiant le nom de l'entête
'et la largeur des colonnes
.Add , , "Date", 80
.Add , , "Mission", 50
.Add , , "Gamme", 50
.Add , , "Nom", 50
.Add , , "CA", 50
.Add , , "Charges", 50
End With
For i = 1 To 200
With .ListItems
.Add , , Cells(i + 4, 1)
End With
'Remplissage des colonnes dans la 1ere ligne
.ListItems(1).ListSubItems.Add , , Cells(i + 4, 2)
.ListItems(2).ListSubItems.Add , , Cells(i + 4, 3)
.ListItems(3).ListSubItems.Add , , Cells(i + 4, 4)
.ListItems(4).ListSubItems.Add , , Cells(i + 4, 5)
.ListItems(5).ListSubItems.Add , , Cells(i + 4, 6)
Next i
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.AllowColumnReorder = True
ListView1.FullRowSelect = True
End Sub
Pourriez-vous me guider?
merci
zourite