Remplacer doublons dans une variable tableau

Version imprimable

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 :lol: :
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 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 ! :)

Bonjour,

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

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
___________________________________________________________________________________________________________

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

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:

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 !

04/04/2018, 18h59
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 !

Bonjour,

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

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
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 !