(VBA) Tirage aléatoire avec contraite

[Shenzo]

Bonjour à tous,

Après quelques recherche, je n'arrive pas à coder quelque chose de relativement facile...

Mon problème est le suivant:

Je dois générer 5 nombres aléatoires compris entre [0,1[ qui représentent en fait les parts d'un portefeuille d'actions et dont la somme de ces 5 nombres doit évidement être égale à 1.

Voici la partie du code qui me génère les 5 nbres aléatoires mais qui ne respecte pas la contraire ;(


For j = 1 To nbre

Randomize

p = Rnd()
p = Round(p, 2)

wsR.Cells(1, j).Value = p

Next j


Merci bien

 

[CBernardT]

Re : (VBA) Tirage aléatoire avec contraite

Bonsoir Shenzo,

Un essai de solution de tirage

 

[Misange]

Re : (VBA) Tirage aléatoire avec contraite

Bonjour

Sans VBA (tu adapteras !)
tu fais 5 tirages avec alea.entre.bornes (1;100) et dans la colonne à côté, tu divises par la somme des tirages.

 

[Shenzo]

Re : (VBA) Tirage aléatoire avec contraite

Et bien tout marche comme sur des roulettes, je vous remercie encore 🙂