Remplissage Listview Split

[Kim75]

Bonsoir le forum,

Voilà, j’avais juste une petite question, j’ai une listview sur userform d'un document word à devoir alimenter, elle contient 9 colonnes et 50 lignes, il y a pas mal de texte, je me demandais alors s’il y avait une façon plus économique textuellement que la méthode classique, dans le genre du split pour le remplissage de la listbox :

Remplissage classique listview :

Private Sub UserForm_Initialize()
    With ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "Nom", 80
            .Add , , "Ville", 50
            .Add , , "Age", 50
        End With
        With .ListItems
           .Add , , "Riri"
           .Add , , "Fifi"
           .Add , , "Loulou"
        End With
        .ListItems(1).ListSubItems.Add , , "Ville01"
        .ListItems(1).ListSubItems.Add , , 30
        .ListItems(2).ListSubItems.Add , , "Ville02"
        .ListItems(2).ListSubItems.Add , , 27
        .ListItems(3).ListSubItems.Add , , "Ville03"
        .ListItems(3).ListSubItems.Add , , 41
    End With    
    ListView1.View = lvwReport
End Sub

Remplissage listbox par split :

Option Explicit
Private Sub UserForm_Initialize()
Dim myArray1 As Variant
Dim myArray2 As Variant
Dim myArray3 As Variant
Dim myArray4 As Variant
Dim myArray5 As Variant
Dim myArray6 As Variant
Dim myArray7 As Variant
Dim myArray8 As Variant
Dim myArray9 As Variant
Dim i As Long
With ListBox1
myArray1 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray2 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray3 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray4 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray5 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray6 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray7 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray8 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray9 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
           & "xixixi|fffff|ggggg|hhhhh|iiiii|" _
           & "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
           & "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
For i = 0 To UBound(myArray1)
ListBox1.AddItem
ListBox1.List(i, 0) = myArray1(i)
ListBox1.List(i, 1) = myArray2(i)
ListBox1.List(i, 2) = myArray3(i)
ListBox1.List(i, 3) = myArray4(i)
ListBox1.List(i, 4) = myArray5(i)
ListBox1.List(i, 5) = myArray6(i)
ListBox1.List(i, 6) = myArray7(i)
ListBox1.List(i, 7) = myArray8(i)
ListBox1.List(i, 8) = myArray9(i)
Next i
End With
End Sub

Kim.

 

[Bebere]

Re : Remplissage Listview Split

bonjour Kim
une 1ère réponse
à bientôt