Split montant aléatoire

Le 22/02/2021 à 17:49

Bonjour le forum

j'ai besoin d'un macro qui permet la division d'un montant donné sur plusieurs cellules ( le nombre des cellules est a saisir) d'un façon aléatoire.

merci

Le 22/02/2021 à 17:55

Bonjour...

personnellement j'ai pas compris la question....

en tout état de cause :

avec des explications de ce que tu souhaites faire

Fred

Le 22/02/2021 à 18:22

ok, voilà mes données:

montant : X

nombre de cellules : Y

le macro doit divise le montant X en Y fois d'une façon aléatoire

et le résultat doit être affiché dans un colonne à Y ligne

montant	1000
Nbr cellules	5

résultat :

250

170

30

150

400

merci

Le 22/02/2021 à 18:29

bonjour,

une solution via une fonction personnalisée

Function splitmontant(montant, n)
    Dim t()
    Application.Volatile
    ReDim t(0 To n - 1, 0 To 0)
    Randomize Timer
    Do
    Total = 0
    For i = 0 To n - 2
        t(i, 0) = aleatoire(0, montant - Total)
        Total = Total + t(i, 0)
    Next i
    t(n - 1, 0) = montant - Total
    Loop Until t(n - 1, 0) > 0
    splitmontant = t
End Function

Function aleatoire(borne_inférieure, borne_supérieure)
    aleatoire = Int(Rnd() * (borne_supérieure - borne_inférieure + 1)) + borne_inférieure
End Function

appel de la fonction en excel