Bonjour,

Encore quelques soucis!!

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
ReDim TableauAlea(1 To 4, 1 To Me.NbrAllee)
 ReDim TableauProvisoire(1, Me.NbrAllee)
 
    RndUnique fReset:=True
 
    For i = 1 To Me.NbrAllee
            TableauAlea(1, i) = RndUnique(1, 10)
    Next i
 
    ' copier le tableau dans un tableau provisoire
 
    For j = 1 To Me.NbrAllee
            TableauProvisoire(1, j) = TableauAlea(1, j)
    Next j
 
    ' trier le tableau provisoire
 
    For k = 1 To Me.NbrAllee - 1
            For l = 1 To Me.NbrAllee - 1
                    If TableauProvisoire(1, l) > TableauProvisoire(1, l + 1) Then
                    Temp = TableauProvisoire(1, l): TableauProvisoire(1, l) = TableauProvisoire(1, l + 1): TableauProvisoire(1, l + 1) = Temp
                End If
            Next l
    Next k
J'ai créer un tableau avec 8 éléments
J'ai fais ...grâce à vous un tableau aléatoire avec les chiffres de 1 à 10
J'ai exclus 2 chiffres par exemple 5 et 6
cela aurait put être autre chose compris entre 1 et 10
J'ai créer un tableau provisoire ou j'ai trier les chiffres

car dans la 2ème 3ème et 4 ème ligne de mon tableauAlea
J'aimerai mettre


1) 3 1 9 7 <---chiffre impair descendant
2) 8 10 2 4 <--chiffre pair montant
3) 2 4 8 10
4) 4 8 10 2
5) 9 7 3 1
6) 1 9 7 3
7) 10 2 4 8
8 ) 7 3 1 9

J'ai partiellement réussi en testant si mon chiffre est pair ou non et trouver le premier élément suivant dans le tableau , mais ou je bloque c'est quand je dois revenir en arrière dans mon tableau car je suis au dernier élément
par exemple la ligne 2)8 10 2 4

merci Jeff