permutation d'éléments dans un tableau

Salut,
J'ai un tableau de vingt éléments P1, P2, ..., P20 et je voudrai, à partir de ce tableau, en créer un autre contenant les mêmes éléments mais dans un ordre complétement aléatoire par exemple P4,P8,P15,P1,P19,...
Merci beaucoup de votre aide

Salut,
Regarde ce petit code.
Je suis sûr qu'il y a plus optimal, mais l'idée est là.

Option Explicit 'Tableau source Private Source(1 To 20) As Integer 'Tableau Destination Private Destination(1 To 20) As Integer 'Tableau mémoire des indices déjà récupérer Private IndicesFaits(1 To 20) As Boolean Private Sub Form_Load() Dim i As Integer Dim IndiceCourant As Integer 'on remplit la source de 1 à 20 For i = 1 To 20    Source(i) = i Next Randomize 'indice courant du tableau de destination IndiceCourant = 1 'tant que tout les indices 'n'aurotn pas été tirés While Not ToutFait    'i tiré au hasard    i = Int((20 * Rnd) + 1)    'si i n'est pas un indice déjà fait    If Not IndicesFaits(i) Then        Destination(IndiceCourant) = Source(i)        'memorise que l'indice est passé        IndicesFaits(i) = True        'incrémentation de indicecourant        IndiceCourant = IndiceCourant + 1    End If Wend End Sub Private Function ToutFait() As Boolean Dim i As Integer    ToutFait = True    For i = 1 To 20        If Not IndicesFaits(i) Then            ToutFait = False            Exit For        End If    Next End Function

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Sub ShuffleTable(ByRef t() As Long)
    Dim tmp   As New Collection
    Dim i     As Long
    Dim n     As Long
    Randomize Timer
    For i = 0 To UBound(t)
        tmp.Add i
    Next
    For i = 0 To UBound(t)
        n = 1 + Int(Rnd * tmp.Count)
        t(i) = tmp(n)
        tmp.Remove n
    Next
End Sub

C'est pas plus rapide mais c'est plus court

@+

[Code]E.B.[/Code]

Ou bien ceci :

Sub ShuffleTable2(ByRef t() As Long)
    Dim p() As Long
    Dim i   As Long
    Dim k   As Long
    Randomize Timer
    k = UBound(t)
    ReDim p(k)
    For i = 0 To k
        p(i) = t(i)
    Next
    While (k >= 0)
        i = Int(Rnd * k)
        t(k) = p(i)
        p(i) = p(k)
        k = k - 1
    Wend
End Sub

[Code]E.B.[/Code]