XL 2013 Nombre aléatoire

kiki29

XLDnaute Barbatruc

• 26 Août 2024

• #2

Salut, à lire/pratiquer/adapter à ton contexte : ici entre autres

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 26 Août 2024

• #3

Bonjour,

mwehu à dit:

j'aimerais avoir 4 nombres aléatoires dans chaques cellules dont la somme des cellules doit être égal à une somme connu déjà bien avant

Cliquez pour agrandir...

T'es au courant qu'il y a 17 179 869 184 cellules dans une feuille et que ça risque d'être "un peu" long d'inscrire quatre nombres dans chaque cellule ?
Je pense même que c'est impossible à faire.

 

Vote positif 0 Vote négatif

M

mwehu

XLDnaute Nouveau

• 26 Août 2024

• #4

TooFatBoy à dit:

Bonjour,


T'es au courant qu'il y a 17 179 869 184 cellules dans une feuille et que ça risque d'être "un peu" long d'inscrire quatre nombres dans chaque cellule ?
Je pense même que c'est impossible à faire.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

mwehu

XLDnaute Nouveau

• 26 Août 2024

• #5

Oh, j'ai voulu dire 1 Nombre aléatoire dans 4 cellules et la somme de 4 cellules doit être égale à une somme déjà bien connue

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 26 Août 2024

• #6

Bonjour à tous,

Qui dit 4 cellules avec un chiffre aléatoire ne peut pas atteindre un total défini.

JHA

 

Pièces jointes

• Classeur alea.xlsx

  9.3 KB · Affichages: 6

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Août 2024

• #7

Bonjour.
En A1 : le total souhaité,
En B1 :

Code:

=ALEA()*$A$1

En B2 :

Code:

=ALEA()*($A$1-B$1)

En B3 :

Code:

=ALEA()*($A$1-SOMME(B$1:B$2))

En B4 :

Code:

=$A$1-SOMME(B$1:B$3)

Pour des entiers vous pouvez remplacer dans toutes les formules "()*(" par ".ENTRE.BORNES(0;"

 

Dernière édition: 26 Août 2024

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2024

• #8

Bonjour mwehu, le forum,

Je suppose qu'il faut travailler avec des nombres entiers positifs.

Alors voyez le fichier joint et cette macro :

VB:

Sub Tirages()
Dim s, a(1 To 4), i, n
s = Int(Val([A1]))
If s < UBound(a) Then [B1:B4].ClearContents: Exit Sub
Randomize
Do
    For i = 1 To 4: a(i) = 1 + Int(s * Rnd): Next
    n = n + 1
Loop While Application.Sum(a) <> s
[B1:B4] = Application.Transpose(a)
MsgBox Format(n, "#,##0") & " itérations"
End Sub

A+

 

Pièces jointes

• Tirages.xlsm

  16.7 KB · Affichages: 11

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2024

• #9

re
Bonjour à tous
perso je prends 3 nombres compris entre 1 et le (max demandé/4) et le 4eme c'est le reste
je n'ai pas besoins de do/loop pour tester si la somme est bonne
et finalement le 4eme est un nombre au hasard puisqu'il est la conséquence des 3 premiers nombre aléatoire

VB:

Option Explicit

Sub Tirages()
    Dim s, a(1 To 4), i
    s = Int(Val([A1]))
    [B1:B4].ClearContents
    Randomize
    For i = 1 To 3: a(i) = 1 + Int(Rnd * (s / 4)): Next
    a(4) = s - Application.Sum(a)
    [B1:B4] = Application.Transpose(a)
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2024

• #10

Bonjour Patrick,

Les 4 nombres que tu obtiens ne sont pas vraiment aléatoires puisque chacun est limité au quart de la somme.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2024

• #11

Cela dit la boucle Do/Loop n'est pas une bonne solution si le nombre en A1 est très grand.

Elle peut prendre beaucoup de temps, alors utilisez plutôt :

VB:

Sub Tirage()
Dim s, a(1 To 4)
s = Int(Val([A1]))
If s < UBound(a) Then [B1:B4].ClearContents: Exit Sub
Randomize
a(1) = 1 + Int(Rnd * (s - 3))
a(2) = 1 + Int(Rnd * (s - a(1) - 2))
a(3) = 1 + Int(Rnd * (s - a(1) - a(2) - 1))
a(4) = s - Application.Sum(a)
Application.ScreenUpdating = False
[B1:B4] = Application.Transpose(a)
[C1:C4] = "=RAND()" 'plage auxiliaire
[B1:C4].Sort [C1], Header:=xlNo 'tri aléatoire
[C1:C4] = ""
End Sub

 

Pièces jointes

• Tirage.xlsm

  17.3 KB · Affichages: 5

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2024

• #12

re
bonjour @job75

Les 4 nombres que tu obtiens ne sont pas vraiment aléatoires puisque chacun est limité au quart de la somme.

Cliquez pour agrandir...

pareil pour toi
en fait si tu regarde bien les sub resultat en console tu fait la même chose
alors oui je te l'accorde la largeur de possibilité est plus grange pour a(1) et a(2) mais c'est exactement la même chose

VB:

a(1) = 1 + Int(Rnd * (s - 3))
a(2) = 1 + Int(Rnd * (s - a(1) - 2))
a(3) = 1 + Int(Rnd * (s - a(1) - a(2) - 1))

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2024

• #13

Non ce n'est pas la même chose chez moi les résultats ne sont pas limités à 10000000/4 = 2500000

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Août 2024

• #14

re
Bonjour @job75
ma fois sur 100 000
si a(1) te sort 50000 il te reste quoi 😉
comme je te l'ai dit c'est la même chose sauf que la limite dépend des précédents items de a
si a(1) sort 50 000 il ne reste plus que 50 000 à partager en 3
si a(2) sort 40 000 il ne reste plus que 10 000 a partager dans les deux autres

autrement dit si tu sort un gros chiffre dans les premier items les suivants seront très petits par rapport au premiers
avec ma méthode on fait pareil finalement mais a l'envers puisque si j'ai un total très petit le 4 est forcement bien plus grand
disons que il y a plus de chance de repartir la somme en 4 parts de même tranches

donc quand tu dis

Les 4 nombres que tu obtiens ne sont pas vraiment aléatoires puisque chacun est limité au quart de la somme.

Cliquez pour agrandir...

et bien avec ta version
a(1) n'est pas limité sauf avec le -3
a(2) est limité a le max - a(1)
a(3) est limité au max - les deux précédents
a(4) est limité au max - les 3 précédents
on peut donc considérer que ce n'est plus vraiment aléatoire aussi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Août 2024

• #15

Hello Patrick,

Chez toi une seule valeur dépasse le quart de la somme.

Chez moi avec la macro du post #11 il peut y en avoir 3.

A+

 

Vote positif 0 Vote négatif