Discussion :

[tomgab]

Bonjour,

Je souhaite créer une variable tableau qui contient des nombres aléatoires sans aucun doublons. Le tableau est à une dimension et sa taille est définie par une variable en début de programme.

Voici le code que j'ai pour générer mon tableau, mais pour le moment les doublons sont permis, je suis débutant et surtout à court d'idées :

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
 
Option Base 0
 
Sub test()
 
    nbEquipInventaire = Worksheets("Parametrage").Range("B5") 'Nombre d'equip par inventaire
    nombreEquip = Range("Listes!A" & Rows.Count).End(xlUp).Row - 1 'Nombre d'equip renseignés
 
    Dim valueEquip() As Variant
    Dim Valeur As Integer
 
    ReDim valueEquip(nbEquipInventaire)
 
    'Initialiser le générateur de nombres aléatoires
    Randomize
 
    For i = 0 To UBound(valueEquip) - 1
 
        aleat = Int(nombreEquip * Rnd) + 1
        valueEquip(i) = aleat
 
    Next i
 
End Sub

Merci de votre aide !

[Marc-L]

Bonjour,

une démonstration via la fonction de feuille de calculs EQUIV (Match en VBA) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Demo1()
    Dim T, C%, N%, V
        T = [{1,2,3,0,0}]
        C = 3
    For N = 1 To 5
        V = Application.Match(N, T, 0)
        If IsError(V) Then C = C + 1: T(C) = N
    Next
        MsgBox Join(T, ", ")
End Sub

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …

[tomgab]

Merci de la réponse rapide, en effet cela fonctionne mais quand j'essaie de l'adapter le tri ne se fait plus.. A quel niveau est mon erreur ?

Code avec mon adaptation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
    Dim T, C%, N%, V
        T = valueEquip
        C = 3
    For N = 1 To UBound(valueEquip) - 1
        V = Application.Match(N, T, 0)
        If IsError(V) Then C = C + 1: T(C) = N
    Next
        MsgBox Join(T, ", ")

Merci !

[Marc-L]

La ligne n°5 dans le code original représentant un tirage aléatoire,
évidemment un copier/coller tel quel ne peut fonctionner !

[tomgab]

Bonjour,

je reconnais ne pas comprendre complètement le code . En revanche j'ai trouvé une autre solution ailleurs sur internet qui fonctionne bien et que je comprends:

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
 
    Dim valueEquip() As Variant
    Dim Temp As Integer, Existe As Boolean
    Dim I As Integer, J As Integer
 
    nombreEquip = Range("Listes!A" & Rows.Count).End(xlUp).Row - 1
    nbEquipInventaire = Worksheets("Parametrage").Range("B5")
 
    ReDim valueEquip(nbEquipInventaire)
 
    'Initialiser le générateur de nombres aléatoires
    Randomize
 
    For I = 0 To (UBound(valueEquip) - 1)
 
        Existe = True
        While Existe
            Temp = Int(nombreEquip * Rnd) + 1
            For J = 0 To (UBound(valueEquip) - 1)
                If Temp = valueEquip(J) Then
                    Existe = True
                    Exit For
                Else
                    Existe = False
                End If
            Next J
        Wend
        valueEquip(I) = Temp
 
    Next I
 
MsgBox Join(valueEquip, " , ")

Merci encore !