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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.