Voici une autre solution, à toi de choisir la macro mets en A1:A54 aléatoirement les chiffres de 1 à 54
Youky
Private Sub CommandButton1_Click() 'pour 54 chiffres comme un jeu 54 cartes Randomize Dim n(54) As Boolean Dim a(54) As Integer For k = 1 To 54 Do c = Int((54 * Rnd) + 1) If n(c) = False Then n(c) = True: a(k) = c 'juste pour voir pas de doublons(ligne en dessous) Feuil1.Cells(k, 1) = a(k) Exit Do End If Loop Next 'tu peux appeler a(5) qui renvoie le 5eme chiffre ou a(ton chiffre) End Sub
"Beun" a écrit dans le message de news:
Comment créer une liste de chiffres aléatoirement avec aucun chiffre répété
dans la liste créée?
Voici une autre solution, à toi de choisir
la macro mets en A1:A54 aléatoirement les chiffres de 1 à 54
Youky
Private Sub CommandButton1_Click()
'pour 54 chiffres comme un jeu 54 cartes
Randomize
Dim n(54) As Boolean
Dim a(54) As Integer
For k = 1 To 54
Do
c = Int((54 * Rnd) + 1)
If n(c) = False Then
n(c) = True: a(k) = c
'juste pour voir pas de doublons(ligne en dessous)
Feuil1.Cells(k, 1) = a(k)
Exit Do
End If
Loop
Next
'tu peux appeler a(5) qui renvoie le 5eme chiffre ou a(ton chiffre)
End Sub
"Beun" <Beun@discussions.microsoft.com> a écrit dans le message de news:
62AD44FD-A777-48B1-97BB-10AFDE3E23FA@microsoft.com...
Comment créer une liste de chiffres aléatoirement avec aucun chiffre
répété
Voici une autre solution, à toi de choisir la macro mets en A1:A54 aléatoirement les chiffres de 1 à 54
Youky
Private Sub CommandButton1_Click() 'pour 54 chiffres comme un jeu 54 cartes Randomize Dim n(54) As Boolean Dim a(54) As Integer For k = 1 To 54 Do c = Int((54 * Rnd) + 1) If n(c) = False Then n(c) = True: a(k) = c 'juste pour voir pas de doublons(ligne en dessous) Feuil1.Cells(k, 1) = a(k) Exit Do End If Loop Next 'tu peux appeler a(5) qui renvoie le 5eme chiffre ou a(ton chiffre) End Sub
"Beun" a écrit dans le message de news:
Comment créer une liste de chiffres aléatoirement avec aucun chiffre répété
Est ce bien cela? http://cjoint.com/?hojvYYNmir "Beun" a écrit dans le message de news:
Comment créer une liste de chiffres aléatoirement avec aucun chiffre répété
dans la liste créée?
Est ce bien cela?
http://cjoint.com/?hojvYYNmir
"Beun" <Beun@discussions.microsoft.com> a écrit dans le message de news:
62AD44FD-A777-48B1-97BB-10AFDE3E23FA@microsoft.com...
Comment créer une liste de chiffres aléatoirement avec aucun chiffre
répété