Générer valeurs aléatoires entre bornes dont la somme déterminée
Résolu
Izy3834
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour tout le monde!
voilà j'ai beau chercher sur internet je ne trouve pas de solution à mon problème, peut-être pourrez-vous m'aider??
Alors je travaille sous Excel 2007 et je pensais écrire un code dans visual basic.
En effet j'aimerai générer des valeurs aléatoires entre bornes, par exemple sur les cellules A1 à A20. Mais je voudrais que la somme de ces valeurs soit égale à un certain nombre.
Sub alea()
Randomize
RandomNumber = Int((99 * Rnd) + 1)
Range("C1") = RandomNumber
End Sub
Ici j'ai réussi à générer une valeur aléatoire entre 0 et 100 mais sur une seule cellule, comment faire pour générer sur une plage?? et la question de la somme reste un mystère....help
Merci d'avance pour vos réponses!
voilà j'ai beau chercher sur internet je ne trouve pas de solution à mon problème, peut-être pourrez-vous m'aider??
Alors je travaille sous Excel 2007 et je pensais écrire un code dans visual basic.
En effet j'aimerai générer des valeurs aléatoires entre bornes, par exemple sur les cellules A1 à A20. Mais je voudrais que la somme de ces valeurs soit égale à un certain nombre.
Sub alea()
Randomize
RandomNumber = Int((99 * Rnd) + 1)
Range("C1") = RandomNumber
End Sub
Ici j'ai réussi à générer une valeur aléatoire entre 0 et 100 mais sur une seule cellule, comment faire pour générer sur une plage?? et la question de la somme reste un mystère....help
Merci d'avance pour vos réponses!
A voir également:
- Vba nombre aléatoire entre bornes
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Excel compter cellule couleur sans vba - Guide
- Gto nombre episode - Forum Cinéma / Télé
- Tirage au sort excel aléatoire sans doublon - Forum Excel
9 réponses
Une procédure plus rapide à l'exécution qui fait tout dans un tableau en mémoire avant de le transposer dans la feuille
Cdlmnt
Const plage = "A1:A20"
Const total = 10000
Const mini = 100
Const maxi = 1000
Public Sub tirageR()
Dim n As Long, tot As Long, a As Long, k As Long, d As Long, T
If Range(plage).Columns.Count > 1 Then Exit Sub
n = Range(plage).Cells.Count
ReDim T(1 To n)
tot = 0
For k = 1 To n
a = mini + Int((maxi - mini + 1) * Rnd)
tot = tot + a
T(k) = a
Next k
If tot < total Then
d = total - tot
For k = 1 To d
a = 1 + Int(n * Rnd)
If T(a) < maxi Then
T(a) = T(a) + 1
Else
k = k - 1
End If
Next k
ElseIf tot > total Then
d = tot - total
For k = 1 To d
a = 1 + Int(n * Rnd)
If T(a) > mini Then
T(a) = T(a) - 1
Else
k = k - 1
End If
Next k
End If
Range(plage) = Application.Transpose(T)
End Sub
Cdlmnt
Bonjour,
Dim c As Range
For Each c In Range("A1:B50")'a adapter à la plage
c.Value = Int(Rnd * 99) + c
Next c
Autant pour moi, c'est comme cela:
Dim c As Range
For Each c In Range("A1:B50")
c.Value = Int(Rnd * 99)
Next c
Bonjour
Peut être ceci
https://www.cjoint.com/?3ArrBhDINWx
Ctrl+t pour lancer la macro
Alt-F11 pour acceder au code (dans Module 1)
Cdlmnt
Peut être ceci
https://www.cjoint.com/?3ArrBhDINWx
Ctrl+t pour lancer la macro
Alt-F11 pour acceder au code (dans Module 1)
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
maxi = 100 ' total à obtenir
n =Range(plage).Cells.Count ' nombre de cellules de la plage à traiter
et j'ai pris une valeur "raisonnable" pour le tirage: de 1 à a
avec a = 2 * maxi \ n
mais tu peux la définir autrement
RQ. Je n'ai pas compris la même chose que cs_Le Pivert que je salue au passage
n =Range(plage).Cells.Count ' nombre de cellules de la plage à traiter
et j'ai pris une valeur "raisonnable" pour le tirage: de 1 à a
avec a = 2 * maxi \ n
mais tu peux la définir autrement
RQ. Je n'ai pas compris la même chose que cs_Le Pivert que je salue au passage
Pour un entier aléatoire h de a à b compris (a < b)
h = a + Int((b - a + 1) * Rnd)
Cdlmnt
h = a + Int((b - a + 1) * Rnd)
Cdlmnt
Bonjour,
je suis vraiment désolée de vous solliciter encore mais je bloque sur cette borne et c'est tout ce qui me sépare de mes résultats!
Par exemple si je veux une somme totale de 10000, une borne inférieure de 50, et une borne supérieure de 1000.
Je mets constmaxi = 10000
a=1000\n
b=1000 (en ayant mis plus haut b As long)
puis je remplace k = Int(a * Rnd) + 1 par
k=a+Int((b-a+1)*Rnd) dans le code mais malheureusement la borne inférieure n'est pas prise en compte, auriez-vous une idée?
merci beaucoup de votre aide
je suis vraiment désolée de vous solliciter encore mais je bloque sur cette borne et c'est tout ce qui me sépare de mes résultats!
Par exemple si je veux une somme totale de 10000, une borne inférieure de 50, et une borne supérieure de 1000.
Je mets constmaxi = 10000
a=1000\n
b=1000 (en ayant mis plus haut b As long)
puis je remplace k = Int(a * Rnd) + 1 par
k=a+Int((b-a+1)*Rnd) dans le code mais malheureusement la borne inférieure n'est pas prise en compte, auriez-vous une idée?
merci beaucoup de votre aide
Ta valeur de b (maxi pour le tirage) me semble bien grande, il faut la choisir nettement inférieure au total à obtenir
Un exemple
https://www.cjoint.com/?3AsoMGA6CSj
Attention lien modifié
Cdlmnt
Un exemple
https://www.cjoint.com/?3AsoMGA6CSj
Attention lien modifié
Cdlmnt
Pour des valeurs un peu grandes (total=10000), il te faut prendre la dernière solution (tout en mémoire), sinon ça va se trainer un peu. Sans compter qu'il manque un test ici pour éviter le dépassement du maxi
Bonne fin de journée
If tot < total Then
d = total - tot
For k = 1 To d
a = 1 + Int(n * Rnd)
If Range(plage).Cells(a, 1) < maxi Then
Range(plage).Cells(a, 1) = Range(plage).Cells(a, 1) + 1
Else
k = k - 1
End If
Next
Bonne fin de journée
Bon comme vous l'avez fait remarquer il ne faut pas prendre une valeur de b trop grande (ce qui est un peu contraignant car il s'agit de valeur de rayonnement et je ne choisi pas les ordres de grandeurs) mais ça devrait le faire.
Je n'ai pas encore essayé votre dernière manipulation mais en tout cas merci!!