Remplir un array en comparant avec les éléments d'un autre array
Bonjour,
Je suis entrain de coder un jeu en VBA et je bug.
En fait j'ai un array Conversion de 7 entiers différents pris au hasard entre 1 et 16. J'aimerais à partir de celui-ci, générer un autre array Conversion_bis qui
- contient 9 entiers distincts entre 1 et 16
- ces entiers doivent être différents de ceux qui sont dans Conversion
Voici le code que j'ai pour l'instant : (NbElements est une fonction qui renvoie le nombre d'éléments dans un array)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Dim Taille As Integer
ReDim Conversion_bis(0 To 8)
Taille = NbElements(Conversion_bis)
While (Taille < 9)
i = Int(16 * Rnd + 1)
For j = LBound(Conversion) To UBound(Conversion)
If i <> Conversion(j) Then
Conversion_bis(j) = i
End If
Next
Taille = Taille + 1
Wend |
Le problème est que je ne vois pas comment comparer les valeurs de Conversion_bis avec celles d'avant pour avoir 9 entiers distincts les uns des autres.
Merci d'avance.
