Chiffre aléatoire VBA

Version imprimable

06/10/2022, 11h31
jo50160

Chiffre aléatoire VBA

Bonjour à tous.

Je voudrais faire une liste de 5 chiffres aléatoires sans doublon via VBA avec un bouton.

Ces 5 chiffres devront être mis dans la ligne B cellules C2 jusqu’à G2.

La liste des chiffres de 1 à 50 se trouve Colonne « L6 : L55 ».

Chaque fois que je clic sur le bouton il renouvelle une notre liste de 5 chiffres.

Je vous remercie par avance.

Cordialement.

Excel 2016.
Windows 11.

Hello,
voici ce que je te propose :

On remplit une collection avec les valeurs à tirer.
On tire un élément de cette collection de façon aléatoire et on enlève cet élément de la collection pour ne pas le retirer.
On effectue cette opération 5 fois.

le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub TirageAuSortUnique() Dim listeNombres As New Collection Dim Cell Dim x, nbALea As Integer Randomize For Each Cell In Range("L6:L55") listeNombres.Add (Cell.Value) Next ' tirage aléatoire des 5 nombres For x = 0 To 4 nbALea = Int(listeNombres.Count * Rnd) + 1 Debug.Print listeNombres.Item(nbALea) Range("C2").Offset(0, x).Value = listeNombres.Item(nbALea) listeNombres.Remove (nbALea) Next x End Sub
Ami calmant, J.P

06/10/2022, 12h58
jo50160

Chiffre aléatoire VBA

Bonjour jurassic pork
Merci pour ta réponse rapide et cela marche très bien.:applo:
Merci beaucoup.

Affaire résolu.

Bonjour à tous

Citation:

Je voudrais faire une liste de 5 chiffres aléatoires sans doublon via VBA avec un bouton.

Une version plus basique que celle de jurassic pork (salut à toi)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub aleas()
Dim plg()
Dim col As Integer
Dim res As String
Dim rst As String
Dim tir As Integer
    plg = ActiveSheet.Range("L6:L55").Value: rst = "||"
    For col = 1 To 5
       res = ""
       While res = ""
            Randomize: tir = Int((50 * Rnd) + 1)
            If InStr(rst, "|" & tir & "|") = 0 Then res = plg(tir, 1)
       Wend
       rst = rst & res & "|"
       ActiveSheet.Range("B2").Offset(lig, col).Value = res
    Next col
End Sub

Plutôt qu'un bouton, tu peux aussi la lancer avec un double clic sur C2

Code:

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.CountLarge = 1 And Not Intersect(Target, Range("C2")) Is Nothing Then
        Cancel = True
        Call aleas
    End If
End Sub

@jo50160 à toi de choisir
bien cordialement

06/10/2022, 14h06
jurassic pork

hello anasecu,
il y a deux soucis dans ton code :aie: :
1 - La variable lig n'est pas définie.
2 - On peut tirer plusieurs fois la même valeur.

Bonsoir jurassic pork

Citation:

1 - La variable lig n'est pas définie.

Désolé je l'ai laissée à tord il faut mettre 0 elle était utilisée pour tester une plage de tirages et je n"ai pas tout supprimé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Sub aleas() Dim plg() Dim col As Integer Dim res As String Dim rst As String Dim tir As Integer plg = ActiveSheet.Range("L6:L55").Value: rst = "||" For col = 1 To 5 res = "" While res = "" Randomize: tir = Int((50 * Rnd) + 1) If InStr(rst, "|" & tir & "|") = 0 Then res = plg(tir, 1) Wend rst = rst & res & "|" ActiveSheet.Range("B2").Offset(0, col).Value = res Next col End Sub
Citation:

2 - On peut tirer plusieurs fois la même valeur.

Là par contre je fais objection car tu n'as pas analysé tout mon code (que j'utilise quotidiènement):?

Merci d'avoir bien suivi !:D
Cordialement "Ami calmant, J.P"

06/10/2022, 18h41
jurassic pork

Citation:

Envoyé par anasecu

Citation:

2 - On peut tirer plusieurs fois la même valeur.

Là par contre je fais objection car tu n'as pas analysé tout mon code (que j'utilise quotidiènement):?

Effectivement je n'ai pas analysé le code :oops: mais en faisant une série de tirage avec ton code je me suis retrouvé par exemple avec :

Citation:

9
5
20
51
20
06/10/2022, 20h59
anasecu

J'aurais bien aimé voir la copie car avec ma variable lig j'ai effectué 1000 tirages sans doubles : c'était le 1001 ?

Pas grave jo50160 a ta solution:D