Bonjour,
Quelqu'un a-t-il un exemple de remplissage d'un Listview sur la base d'un Tableau Structuré :
Pour l'instant je passe par un Array intermédiaire entre DataBodyRange pour remplir les ListItemsAdd et ListSubItemsAdd,
mais cela me semble un peu "lourd"... (parce que je suis obligé par "Value").
Mon code actuel :
Private Sub InitDataLVw() 'contenu de la lvStock
Dim Tbl, L&, C%
Tbl = TDatS.DataBodyRange.Value
With lvStock
.ListItems.Clear
For L = 1 To UBound(Tbl, 1)
.ListItems.Add , , Format(Tbl(L, 1), "P\0000")
For C = 2 To UBound(Tbl, 2)
If C = 4 Then
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Tbl(L, C), "F\0000")
Else
.ListItems(.ListItems.Count).ListSubItems.Add , , Tbl(L, C)
End If
Next
Next
End With
End Sub
Je soupçonne qu'on doit pouvoir passer directement par DataBodyRange et ".Text" mais je coince un peu...
Merci