Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

[Chveitsarski]

Salut à tous,

Tout est dans le titre 🙂
Mais pour être plus clair, je dois faire apparaître une dizaine de chiffres aléatoire, et dans tout ces nombres, il ne dois pas y avoir de doublon...
Ca fait un moment que je bloque la dessus... Si quelqu'un avait une solution ? 😱

Merci à tous !

 

[JCGL]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

Bonjour à tous,

Un essai avec un code de Spit 🙂 (je crois...)

A+ à tous

 

[excalibur]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

bonjour Chveitsarski JCGL leforum une variante a adapter

beau temps aujourd hui a chamrousse jc ??

 

[job75]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

Bonjour Chveitsarski, salut JCGL, excalibur 🙂

Puisque j'ai fait le travail, voici le fichier et la macro :

Sub Alea50()
Dim n As Byte, c As New Collection, al As Byte, i As Byte
n = 10 ' quantité de nombres aléatoires désirés
If n > 50 Then MsgBox "Impossibilité": Exit Sub
On Error Resume Next
While c.Count < n
al = Int(1 + 50 * Rnd)
c.Add al, CStr(al)
Wend
For i = 1 To n
Range("A" & i) = c(i)
Next
End Sub

A+

 

[Chveitsarski]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

Merci pour ta réponse rapide, mais malheureusement j'obtiens des doublons...

En fait j'ai 5 colonnes, et ces 5 doivent avoir 5 chiffres de 1 à 50 sans doublons..
Mais La colonne 1 peut avoir "10" par exemple, et la colonne 3 peut également l'avoir...

A+

 

[JCGL]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

Bonjour à tous,
Salut Excalibur (Grand beau sur Cham : neige ++, soleil ++)🙂
Salut Job 🙂

Tu aurais du donner toutes les condition dès le départ...
J'ai fait par lignes et elles sont sans doublons

A+ à tous

 

[Chveitsarski]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

Pardon, je parlais à JCGL 😉
Excalibur, je vais essayé ta solution, je vous redonnerez des nouvelles 🙂 Merci !

 

[Chveitsarski]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

Oui excuse, je n'ai pas été clair...
Mais j'ai essayé ton programme JCGL, et ça fonctionne.. presque 😉
Parce que justement j'aimerai que ça soit par colonne et non par ligne le tri..
Qu'est-ce que je dois modifier ?

Encore merci !

 

[job75]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

Re,

Donc pour un tableau 5 x 5, sans doublon dans chaque colonne.

J'utilise 2 macros et déclare Public la collection :

Public c As New Collection

Sub RemplissageAleatoire()
Dim lig As Byte, col As Byte
For col = 1 To 5
Call Alea50
For lig = 1 To 5
Cells(lig, col).Value = c(lig)
Next
Set c = Nothing
Next
End Sub

Sub Alea50()
Dim n As Byte, al As Byte
n = 5 ' quantité de nombres aléatoires désirés
If n > 50 Then MsgBox "Impossibilité": Exit Sub
On Error Resume Next
While c.Count < n
al = Int(1 + 50 * Rnd)
c.Add al, CStr(al)
Wend
End Sub

A+

 

[Chveitsarski]

Re : Faire apparaître des chiffres aléatoire de 1 à 50 sans doublon

J'ai été un peu rapide 😉

J'ai trouvé...

En ayant modifié le code ainsi :

Nbr = 5
If Nbr = 0 Then Exit Sub

For k = 1 To Nbr
For i = 1 To 5
Do
If i < 1 Then
num = Int((50 * Rnd) + 1)
Else
Tablo(i) = Int((50 * Rnd) + 1)
End If
Doublons = False
For j = 1 To 10
If i <> j Then
If Tablo(j) <> "" Then
If Tablo(i) = Tablo(j) Then
Doublons = True
Exit For
End If
End If
End If
Next j
Loop Until Not Doublons
Next i

Ligne = Ligne + 1
For i = 1 To 10
Cells(i, Ligne) = Tablo(i)
Next i
Next k

Encore un grand merci et une bonne soirée avec la neige 😀