Discussion :

[Jeffboj]

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

[Jeffboj]

J'ai trouvé en changeant de cap complétement

voici ce que j'ai fais

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
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

et cela fonctionne
merci quand même
Jeff