Nombres aléatoires avec favoris!

[Claudy]

Bonjour,
Je craque après plusieurs recherches infructueuses...
Mon prob:
Tirer aléatoirement 7 nombres de 1 à 20 les placer dans A1:G1 (Je sais faire ça...)
Mais dans ces nombres il me faudrait, qu'il y ai d'autres nombres (max deux) "favoris" que je retrouve dans AA1: AG1
Précision: pas de doublons!

Merci d'avance,
Claudy

 

[jmd2]

Re : Nombres aléatoires avec favoris!

hello

quelle relation entre les 7 aléatoires et les favoris ?
tu veux 2 nombres au max dans AA1: AG1, tu as trop de cellules !
que signifie "favoris" par rapport aux "aléatoires" ?

*****

 

[Claudy]

Re : Nombres aléatoires avec favoris!

hello

quelle relation entre les 7 aléatoires et les favoris ?
tu veux 2 nombres au max dans AA1: AG1, tu as trop de cellules !
que signifie "favoris" par rapport aux "aléatoires" ?

*****

Bonsoir et merci de ton interet à mon prob...
J'ai 6 favoris (aussi de 1 à 20) et je voudrais retrouver au moins deux de ces favoris dans ma série A1:G1 plus les autres aléatoires...
A+
Claudy

 

[jmd2]

Re : Nombres aléatoires avec favoris!

re

j'ai une soluce pour "forcer" 2 favoris (pas plus), mais je bute sur le problème des doublons...

*****

 

[Staple1600]

Re : Nombres aléatoires avec favoris!

Bonsoir à tous


Moi c'est le contraire

Dim MyRand(7), Invalid(7), iTest As Long
Dim GoodNum As Boolean
Sub aleas_sans_doublons()
'source: C Petrin
'URL: [URL="http://groups.google.fr/group/microsoft.public.excel.programming/msg/7d9fce204da525ef?hl=fr&dmode=source&output=gplain"]ici[/URL]
Dim n()
For x = 1 To 7
    GoodNum = False
    Do While GoodNum = False
        iTest = Int(Rnd * 20) + 1 
        For y = 1 To 7
            If iTest = MyRand(y) Then
                GoodNum = False
                Exit For
            Else
                GoodNum = True
            End If
        Next y
    Loop
    MyRand(x) = iTest
Next x
For i = 1 To 7
    ActiveCell.Offset(i - 1, 0) = MyRand(i)
Next i
End Sub

Pour les favoris (ici 5 et 6)
y = Choose(Int(Rnd * 2) + 1, "5", "6")

 

[job75]

Re : Nombres aléatoires avec favoris!

Bonsoir Claudy, salut jmd2 et Staple,

Ci-joint une solution garantie sans macro.

A+

EDITION : je viens de remplacer les EQUIV par des NB.SI, ça m'a l'air mieux

 

[Tibo]

Re : Nombres aléatoires avec favoris!

Bonsoir,

Une autre version garantie sans macro, mais tirée par les cheveux ...


@+

 

[job75]

Re : Nombres aléatoires avec favoris!

Re,

Claudy, à 17:29, vous dites max 2 favoris, à 18:28 au moins 2.

Alors j'ai concilié vos 2 demandes : il y a toujours 2 favoris 😉

A+

 

[Claudy]

Re : Nombres aléatoires avec favoris!

Ok , merci à tous..
et désolé , Job, me suis trompé , C'est bien 1 ou 2 favoris...
De toute façon, je joint mon fichier avec lequel je compte sur votre bonne volonté pour m'aider
Merci
A+
Claudy

 

[pierrejean]

Re : Nombres aléatoires avec favoris!

bonjour Claudy

Salut jmd2
Salut job
salut Tibo
salut Staple

Vois si cela te convient

En vert 2 N° pris dans le favoris (AA1:AG1)

 

[Claudy]

Re : Nombres aléatoires avec favoris!

Bonsoir PJ merci,
mais malheureusement il y a des doublons...
a+
j'espère...

 

[job75]

Re : Nombres aléatoires avec favoris!

Re,
Hum hum, bien vu vos tableaux Claudy, que voulez-vous qu'on fasse de plus par rapport au problème déjà posé (A1:G1...) 😕

 

[Claudy]

Re : Nombres aléatoires avec favoris!

C'est vrai que ma demande de départ était sur une sélection (A1: G1)
Je pensais pouvoir l'adapter à mon vrai prob que je vous présente...
Sorry.
Claudy

 

[Cousinhub]

Re : Nombres aléatoires avec favoris!

Bonsoir,

salut job et pierrejean

ma petite contribution...

le code :

Sub tirage_tierce()
Dim Tierce As Object, Cheval As Byte
[A6:G6].ClearContents
Set Tierce = CreateObject("Scripting.Dictionary")
    While Tierce.Count <> 2
        Randomize
        Cheval = Int((20 * Rnd) + 1)
        If Not Tierce.Exists(Cheval) And _
            Application.CountIf(Range("A1:G1"), Cheval) = 1 _
                Then Tierce.Add Cheval, Cheval
    Wend
    While Tierce.Count <> 7
        Randomize
        Cheval = Int((20 * Rnd) + 1)
        If Not Tierce.Exists(Cheval) Then Tierce.Add Cheval, Cheval
    Wend
[A6:G6] = Tierce.items
End Sub

le fichier exemple :

 

[pierrejean]

Re : Nombres aléatoires avec favoris!

Re

Salut bhbh 🙂

Super

Il va falloir que je me mette au Dictionary !!!