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 !