simplification de code

**Jeffboj** · 11/04/2006, 00h24

bonjour,

J,aimerai une solution pour simplifier ma formule merci.

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
        Tableaualea(1, 1) = Int((10) * Rnd + 1)
ligne101:
        Tableaualea(1, 2) = Int((10) * Rnd + 1)
  If Tableaualea(1, 2) = Tableaualea(1, 1) Then GoTo ligne101
ligne102:
        Tableaualea(1, 3) = Int((10) * Rnd + 1)
  If Tableaualea(1, 3) = Tableaualea(1, 1) Or Tableaualea(1, 3) = Tableaualea(1, 2) Then GoTo ligne102
ligne103:
        Tableaualea(1, 4) = Int((10) * Rnd + 1)
  If Tableaualea(1, 4) = Tableaualea(1, 1) Or Tableaualea(1, 4) = Tableaualea(1, 2) Or Tableaualea(1, 4) = Tableaualea(1, 3) Then GoTo ligne103
ligne104:
        Tableaualea(1, 5) = Int((10) * Rnd + 1)
  If Tableaualea(1, 5) = Tableaualea(1, 1) Or Tableaualea(1, 5) = Tableaualea(1, 2) Or Tableaualea(1, 5) = Tableaualea(1, 3) Or Tableaualea(1, 5) = Tableaualea(1, 4) Then GoTo ligne104
ligne105:
        Tableaualea(1, 6) = Int((10) * Rnd + 1)
  If Tableaualea(1, 6) = Tableaualea(1, 1) Or Tableaualea(1, 6) = Tableaualea(1, 2) Or Tableaualea(1, 6) = Tableaualea(1, 3) Or Tableaualea(1, 6) = Tableaualea(1, 4) Or Tableaualea(1, 6) = Tableaualea(1, 5) Then GoTo ligne105
ligne106:
        Tableaualea(1, 7) = Int((10) * Rnd + 1)
  If Tableaualea(1, 7) = Tableaualea(1, 1) Or Tableaualea(1, 7) = Tableaualea(1, 2) Or Tableaualea(1, 7) = Tableaualea(1, 3) Or Tableaualea(1, 7) = Tableaualea(1, 4) Or Tableaualea(1, 7) = Tableaualea(1, 5) Or Tableaualea(1, 7) = Tableaualea(1, 6) Then GoTo ligne106
ligne107:
        Tableaualea(1, 8) = Int((10) * Rnd + 1)
  If Tableaualea(1, 8) = Tableaualea(1, 1) Or Tableaualea(1, 8) = Tableaualea(1, 2) Or Tableaualea(1, 8) = Tableaualea(1, 3) Or Tableaualea(1, 8) = Tableaualea(1, 4) Or Tableaualea(1, 8) = Tableaualea(1, 5) Or Tableaualea(1, 8) = Tableaualea(1, 6) Or Tableaualea(1, 8) = Tableaualea(1, 7) Then GoTo ligne107
ligne108:
        Tableaualea(1, 9) = Int((10) * Rnd + 1)
  If Tableaualea(1, 9) = Tableaualea(1, 1) Or Tableaualea(1, 9) = Tableaualea(1, 2) Or Tableaualea(1, 9) = Tableaualea(1, 3) Or Tableaualea(1, 9) = Tableaualea(1, 4) Or Tableaualea(1, 9) = Tableaualea(1, 5) Or Tableaualea(1, 9) = Tableaualea(1, 6) Or Tableaualea(1, 9) = Tableaualea(1, 7) Or Tableaualea(1, 9) = Tableaualea(1, 8) Then GoTo ligne108
ligne109:
        Tableaualea(1, 10) = Int((10) * Rnd + 1)
  If Tableaualea(1, 10) = Tableaualea(1, 1) Or Tableaualea(1, 10) = Tableaualea(1, 2) Or Tableaualea(1, 10) = Tableaualea(1, 3) Or Tableaualea(1, 10) = Tableaualea(1, 4) Or Tableaualea(1, 10) = Tableaualea(1, 5) Or Tableaualea(1, 10) = Tableaualea(1, 6) Or Tableaualea(1, 10) = Tableaualea(1, 7) Or Tableaualea(1, 10) = Tableaualea(1, 8) Or Tableaualea(1, 10) = Tableaualea(1, 9) Then GoTo ligne109

but du code
remplir un tableau avec les chiffres de 1 � 10 de fa�on al�atoire sans doublons

Jeffboj

**=JBO=** · 11/04/2006, 08h20

Bonjour Jeffboj,

Envoy� par Jeffboj

J,aimerai une solution pour simplifier ma formule [...]
but du code
remplir un tableau avec les chiffres de 1 � 10 de fa�on al�atoire sans doublons

Je ne pense pas "simplifier" mais je te conseille vivement d'utiliser une collection pour m�moriser les valeurs que tu ne souhaites pas g�n�rer � nouveau.

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
Public Sub RemplirTableau()
    Dim Tableaualea(1 To 1, 1 To 10), Coll As New Collection, i As Integer
 
    RndUnique fReset:=True
 
    For i = 1 To 10
        Tableaualea(1, i) = RndUnique(1, 10)
    Next i
End Sub
 
Public Function RndUnique(Optional lowerBound As Integer, _
                    Optional upperBound As Integer, _
                    Optional fReset As Boolean = False) As Integer
 
    Static Coll As New Collection
    Dim sKey As String, n As Integer, v As Variant
 
    If fReset = True Then
        Set Coll = New Collection
        Exit Function
    End If
 
    On Error Resume Next
    Do
        ' générer une valeur comprsie entre lowerBound et upperBound
        n = Int((upperBound - lowerBound + 1) * Rnd + lowerBound)
        sKey = CStr(n)
 
        ' Vérifier si la valeur a déjà été fournie
        v = Coll.Item(sKey)
 
        ' Produit une erreur si clé sKey absente de la collection
        If Err.Number <> 0 Then
            ' donc nouvelle valeur à ajouter dans la collection
            Coll.Add n, sKey
            RndUnique = n
            Exit Function
        End If
    Loop
End Function

**random** · 11/04/2006, 09h05

on pourrait peut �tre gagner en lisibilit� et performance ainsi

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
 
Function listediff(combien As Integer) As Boolean
Dim coll1 As New Collection
Dim coll2 As New Collection
Dim boucle As Long
Dim tirage As Long
Randomize
For boucle = 1 To combien
coll1.Add Item:=boucle
Next boucle
For boucle = combien To 1 Step -1
tirage = Int(boucle * Rnd) + 1
coll2.Add (coll1(tirage))
coll1.Remove (tirage)
Next boucle
For boucle = 1 To combien
mamatrice(1, boucle) = coll2(boucle)
Next boucle
End Function

**random** · 11/04/2006, 09h08

pardon jbo j'ai envoy� mon message sans voir le tien

**=JBO=** · 11/04/2006, 09h09

En performance... peut �tre...

En lisibilit�... j'en doute

.

Demande voir aux d�butants qui fr�quentent le forum

A part �a, la vie est belle

**Tententai** · 11/04/2006, 09h11

Recommencer � chaque fois que tu retombes sur un nombre d�j� pris n'est pas g�nant point de vue temps de calcul, mais c'est un peu barbare

En remplissant un tableu de nombres al�atoires entre 11 et 10000, puis en faisant de i=0 � 9 : Max(tableau) = 10-i, �a devrait faire l'affaire. L'id�e est de remplacer les nombres al�atoires par leur ordre, y'a peut �tre plus �l�gant, c'est juste une id�e comme �a.

**lou87** · 11/04/2006, 09h19

@ JBO :

Moi je trouve son code lisible � radom ^^...

Peut �tre parce que j'y suis habitu�e

**random** · 11/04/2006, 09h24

Envoy� par Tententai

Recommencer � chaque fois que tu retombes sur un nombre d�j� pris n'est pas g�nant point de vue temps de calcul, mais c'est un peu barbare :wink:

En remplissant un tableu de nombres al�atoires entre 11 et 10000, puis en faisant de i=0 � 9 : Max(tableau) = 10-i, �a devrait faire l'affaire. L'id�e est de remplacer les nombres al�atoires par leur ordre, y'a peut �tre plus �l�gant, c'est juste une id�e comme �a.

c'est ce que fait mon code
ps jbo j'ai d�j� pr�sent� mes excuses et mon commentaire sur la lisibilite
visait le texte originel

**Tofalu** · 11/04/2006, 09h27

Envoy� par lou87

@ JBO :

Moi je trouve son code lisible � radom ^^...

Peut �tre parce que j'y suis habitu�e

Et bien change d'habitude

Un code propre c'est un code qui respecte :

Une r�gle de nommage des variables correct (cf le tuto d'argy http://access.developpez.com/cours : http://argyronet.developpez.com/office/vba/convention/ )

Une indentation claire et coh�rente

etc

Ne pas oublier de consulter l'article de papy turbo sur le developpement professionnel

http://access.developpez.com/accessdevpro/

Ceci dit, le code de random est � adapter. Random donne la solution brute, � vous de modifier le code � votre convenance pour le rendre compatible avec vos habitudes de developpeur

**lou87** · 11/04/2006, 09h31

Envoy� par random

on pourrait peut �tre gagner en lisibilit� et performance ainsi

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
 
 
Function listediff(combien As Integer) As Boolean
 
Dim coll1 As New Collection
Dim coll2 As New Collection
Dim boucle As Long
Dim tirage As Long
 
Randomize
 
For boucle = 1 To combien
   coll1.Add Item:=boucle
Next boucle
 
For boucle = combien To 1 Step -1
  tirage = Int(boucle * Rnd) + 1
  coll2.Add (coll1(tirage))
  coll1.Remove (tirage)
Next boucle
 
For boucle = 1 To combien
  mamatrice(1, boucle) = coll2(boucle)
Next boucle
 
End Function

Elles sont bien mes habitudes, mais moi g�n�ralement je met des espaces pour m'y retrouver, mais bon ce que je veux dire c'est que toute personne est capable de lire le code � random.....

**Tententai** · 11/04/2006, 09h47

Envoy� par random

Envoy� par Tententai

Recommencer � chaque fois que tu retombes sur un nombre d�j� pris n'est pas g�nant point de vue temps de calcul, mais c'est un peu barbare

En remplissant un tableu de nombres al�atoires entre 11 et 10000, puis en faisant de i=0 � 9 : Max(tableau) = 10-i, �a devrait faire l'affaire. L'id�e est de remplacer les nombres al�atoires par leur ordre, y'a peut �tre plus �l�gant, c'est juste une id�e comme �a.

c'est ce que fait mon code

D�sol� je m'adressais au post d'origine, on a du poster en m�me temps

En tout cas c'est bien j'ai appris des trucs sur les collections au passage ^^