Super formule pour tirage aléatoire

[C@thy]

Bonjour le forum, bonjour les formulistes.

Je cherche une superformule permettant de générer 6 nombres aléatoires comme suit :
(le compte est bon) :

tirage au hasard, sans remplacement, de six plaques portant des numéros parmi un ensemble de 28 plaques ainsi constitué :1. 20 plaques numérotées de 1 à 10 (2 par nombre) 2. 2 plaques de 25 3. 2 plaques de 50 4. 2 plaques de 75 5. 2 plaques de 100 (de préférence sans macros, mais si macro, plus dur : trouver la solution!!!)

Merciiiiiiiiiiiiiii

C@thy

 

[Pierrot93]

Re : Super formule pour tirage aléatoire

Bonsoir Cathy

en attendant les formulistes, macro ci-dessous effectue un tirage aléatoire et positionne les valeurs trouvées sur la plage A1:F1 :

Option Explicit
Sub test()
Dim c As New Collection, i As Byte, j As Byte, k As Byte
Randomize
For i = 1 To 2
    For j = 1 To 10
        c.Add j
        k = k + 1
    Next j
    For j = 25 To 100 Step 25
        c.Add j
        k = k + 1
    Next j
Next i
For i = 1 To 6
    k = Int(c.Count * Rnd) + 1
    Cells(1, i).Value = c(k)
    c.Remove k
Next i
End Sub

bonne soirée
@+

 

[Tibo]

Re : Super formule pour tirage aléatoire

Salut Cathy, Pierrot,

Une solution avec formule.

Avec utilisation de la fonction ALEA()

Inconvénient : change à chaque fois qu'on fait F9 ou qu'on saisit une donnée sur la feuille.

Voir le fichier joint

@+

 

[Lii]

Re : Super formule pour tirage aléatoire

Salut,

pas formuliste (comme Tibo 😉) mais une autre formule.
L'enregistreur de macro permet de traduire les formules en VBA avec une possibilité de ne pas laisser de trace ni d'être gêné par l'Alea.

 

[vbacrumble]

Re : Super formule pour tirage aléatoire

Bonsoir



Ça sent les Chiffres et les lettres , Cathy non ?

tirage au hasard, sans remplacement, de six plaques portant des numéros parmi un ensemble de 28 plaques ainsi constitué :1. 20 plaques numérotées de 1 à 10 (2 par nombre) 2. 2 plaques de 25 3. 2 plaques de 50 4. 2 plaques de 75 5. 2 plaques de 100 (de préférence sans macros, mais si macro, plus dur : trouver la solution!!!)

Mais ce sont les règles du temps d'Arlène Templier (à l'époque c'était Antenne 2 ) 😉

Le compte est-t-il bon ?

 

[C@thy]

Re : Super formule pour tirage aléatoire

Ah oui, SUPER BIEN! Un grand bravo à tous, vous vous êtes surpassés!
Tibo, je n'avais pas pensé à ta soluce, elle fonctionne à merveille.

Merci également à Lii popur son doublé formule + macro.
La macro de Pierrot aussi, tout est génial!

Mille remerciements à tous, vous êtes des chefs!

Arf! je suis toujours épatée de voir ce qu'on peut faire par macro.
Reste à écrire celle qui donne le résultat : 10*2+(100-8)+9/3
mais ça, c'est une autre histoire...

Bises et bonne journée à tous

C@thy

 

[vbacrumble]

Re : Super formule pour tirage aléatoire

Bonjour C@thy , le fil, tous


Pas vu ma question C@thy ? 🙁

 

[MJ13]

Re : Super formule pour tirage aléatoire

Bonjour à tous

Cathy: regarde ce post de notre ami JMPS:

Lien supprimé