pascal21
XLDnaute Barbatruc
bonjour le forum
j'aimerais essayer d'intégrer un listview dans un usf
mais bien sur je n'arrive pas à coder pour que ça fonctionne
il faut que ça reprenne des données dans la feuille "data" dans une zone de cellules "D10:F50"
la ligne 10 contenant les entêtes
j'ai trouvé ce bout de code sur le net que j'ai essayé d'adapter mais j'ai une erreur 1004 "erreur définie par l'application ou par l'objet"
je vous mets le code si il vous faut un fichier je vous en mettrai un
je pense que les erreurs viennent de ces lignes là
mais ça n'a peut être rien à voir
merci de votre aide
j'aimerais essayer d'intégrer un listview dans un usf
mais bien sur je n'arrive pas à coder pour que ça fonctionne
il faut que ça reprenne des données dans la feuille "data" dans une zone de cellules "D10:F50"
la ligne 10 contenant les entêtes
j'ai trouvé ce bout de code sur le net que j'ai essayé d'adapter mais j'ai une erreur 1004 "erreur définie par l'application ou par l'objet"
je vous mets le code si il vous faut un fichier je vous en mettrai un
Code:
Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte
Dim k As Integer
k = Worksheets("data").Range("d65536").End(xlUp).Row
With ListView1
With .ColumnHeaders
.Clear
.Add , , Worksheets("data").Cells(4, 1), 100
.Add , , Worksheets("data").Cells(4, 2), 70
.Add , , Worksheets("data").Cells(4, 3), 70
'.Add , , Worksheets("Feuil2").Cells(1, 4), 40
'.Add , , Worksheets("Feuil2").Cells(1, 5), 80
'.Add , , Worksheets("Feuil2").Cells(1, 6), 80
'.Add , , Worksheets("Feuil2").Cells(1, 7), 80
'.Add , , Worksheets("Feuil2").Cells(1, 8), 80
'.Add , , Worksheets("Feuil2").Cells(1, 9), 70
' .Add , , Worksheets("Feuil2").Cells(1, 10), 60
End With
'Les autres lignes contiennent les données
For Each Cell In Worksheets("data").Range("d11:d" & f)
X = X + 1
.ListItems.Add , , Cell
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 1)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 2)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 3)
'.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 4)
'.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 5)
'.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 6)
' .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 7)
'.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 8)
'.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 9)
Next
End With
End Sub
mais ça n'a peut être rien à voir
Code:
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 1)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 2)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 3)
.Add , , Worksheets("data").Cells(4, 1), 100
.Add , , Worksheets("data").Cells(4, 2), 70
.Add , , Worksheets("data").Cells(4, 3), 70
Dernière édition: