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: