Simplification de code (suite)

Bonjour,

Encore quelques soucis!! :?

voici mon code
Code:

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 :wink:

ReDim TableauAlea(1 To 4, 1 To Me.NbrAllee) RndUnique fReset:=True For i = 1 To Me.NbrAllee TableauAlea(1, i) = RndUnique(1, 10) Next i For m = 1 To 3 For j = 1 To Me.NbrAllee If TableauAlea(m, j) Mod 2 = 1 Then TableauAlea(m + 1, j) = TableauAlea(m, j) - 2 recommence: If TableauAlea(m + 1, j) <= 0 Then TableauAlea(m + 1, j) = TableauAlea(m + 1, j) + 10 ' contrôle si le chiffre appartiens à la liste For k = 1 To Me.NbrAllee If TableauAlea(m + 1, j) = TableauAlea(m, k) Then Exit For End If Next k ' si pas dans la séléction enlève 2 If k = Me.NbrAllee + 1 Then TableauAlea(m + 1, j) = TableauAlea(m + 1, j) - 2 GoTo recommence '<--- et recommence le contrôle End If Else TableauAlea(m + 1, j) = TableauAlea(m, j) + 2 encore: If TableauAlea(m + 1, j) > 10 Then TableauAlea(m + 1, j) = TableauAlea(m + 1, j) - 10 ' contrôle si le chiffre appartiens à la liste For l = 1 To Me.NbrAllee If TableauAlea(m + 1, j) = TableauAlea(m, l) Then Exit For End If Next l ' si pas dans la séléction ajoute 2 If l = Me.NbrAllee + 1 Then TableauAlea(m + 1, j) = TableauAlea(m + 1, j) + 2 GoTo encore ' <--- et recommence le contrôle End If End If Next j Next m