Discussion :

[method_man]

Bonjour à tous.

Voilà, mon problème est dans le titre : je désire parcourir tous les items de ma listview afin d'affecter des nombres aléatoires différents. j'ai du mal avec l'algo en fait.

Voici mon code qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
' génération aléatoire des numéros d'anonymat
    For i = 1 To LV_Echantillons.ListItems.Count
        NumAleatoire = Int(Rnd * 100) + 1
        ' on vérifie que ce numéro n'a pas déja été affecté
        Do While NumAleatoire <> CInt(LV_Echantillons.ListItems.Item(i).ListSubItems.Item(2).Text)
            LV_Echantillons.ListItems.Item(i).ListSubItems.Item(2).Text = NumAleatoire
        Loop
    Next

Meric d'avance pour votre aide !