Diviser une listbox

Question

Casse t&#234;te :

J'ai une listbox (L1) avec des &#233;l&#233;ments recup&#233;r&#233;s d'1 fichier texte.

J'ai une autre listbox (L2) avec un nombre x de valeur, mais au plus

egale &#224; la premiere listbox.



Le probl&#232;me :

Je vaudrait diviser L1 par le nombre total de L2, et placer &#224; chaque division

L'&#233;l&#233;ment x de L2 tout en gardant intacte la structure de L1...



Par exemple j'ai 50 &#233;l&#233;ments dans L1 et 10 dans L2.

Par le script tous les 10 &#233;l&#233;ments de L1 je place l'&#233;l&#233;ment de L2.



J'ai essay&#233; plusieurs m&#233;thodes avec des listes tampons...sans succ&#232;s,

surtout avec des nombres non proportionels.



Est-ce possible ?

Existe t'il une m&#233;thode existante ?

Merci.

Gobillot · Answer

je ne sais pas si j'ai bien compris

10 c'est le nombre d'&#233;l&#233;ments dans la LisBox2 ou c'est un nombre fixe ?







Private Sub Form_Load()

    Dim i As Integer

    Dim j As Integer

    Dim k As Integer

    Dim x As Double

    

'remplissage List1 (c'est pour le test)

    For i = 1 To 107

        x = Rnd * 15

        List1.AddItem x

        Next

'remplissage List2 (toujours pour le test)

    For i = 1 To 10

        x = Rnd * 15

        List2.AddItem "*** " & Int(x) & " ***"

        Next

    

    k = -1

    For j = -1 To List1.ListCount - 1 Step List2.ListCount    'ou 10

        k = k + 1

        Next

    j = j - List2.ListCount    'ou 10

    k = k - 1

    

    For i = j To 0 Step -List2.ListCount

        List1.AddItem List2.List(k), i + 1

        k = k - 1

        Next



End Sub


Daniel

gmni · Answer

C'est exatement &#231;a!
Merci infiniment, pour l'exemple, ton attention et ta rapidit&#233;
-----------------

Diviser une listbox

2 réponses

Discussions similaires