accés aléatoire à un élément d'un tableau Résolu

Question

Bonjour,
Je cherche une instruction me permettant d'accéder aléatoirement à un élément d'un tableau unidimensionnel.
Mon but est de de permuter deux éléments aléatoires d'un tableau.
J'espère que ma question est claire.
Merci d'avance pour la réponse.

econs · Accepted Answer

Salut,

La procedure permutationAleatoire ci-dessous fait &#231;&#224;. La proc&#233;dure test te servira juste &#224; tester que tout va bien.





Sub test()

Dim tt(3 To 8) As Long

Dim sTemp As String



    For l = 3 To 8

        tt(l) = l

    Next l

    

    permutationAleatoire tt

    

    sTemp = ""

    For l = 3 To 8

        sTemp = sTemp & tt(l) & " "

    Next l

    MsgBox sTemp

End Sub













Sub permutationAleatoire(t() As Long)

Dim indice1 As Long

Dim indice2 As Long

Dim nbElements As Long

Dim k As Long



    nbElements = UBound(t) - LBound(t) + 1



    indice1 = Int(Rnd * nbElements)

    indice2 = Int(Rnd * nbElements)

    

    k = t(LBound(t) + indice1)

    t(LBound(t) + indice1) = t(LBound(t) + indice2)

    t(LBound(t) + indice2) = k

    

End Sub






Manu

cs_Willi · Answer

Bonjour,
Randomize
MsgBox CInt(Rnd * UBound(NomDeTonTableau)) - 1

Voila

econs · Answer

Et un p'tit Randomize Timer dans le Form_Load pour ne pas avoir toujours les m&#234;mes permutations !

Manu

econs · Answer

Willi > Ton exemple ne fonctionne que si LBound(tonTableau)=0

(ce qui est souvent le cas, je te le conc&#232;de ..., mais un exemple plus g&#233;n&#233;rique ne fait pas de mal) 


Manu

cs_Willi · Answer

Econs > exact pour LBound et un petit exemple, je crois que je devrais rester coucher le matin ^^

Accés aléatoire à un élément d'un tableau

5 réponses

Discussions similaires