Besoin d' un script vb

Signaler
Messages postés
28
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
17 septembre 2007
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
salut à tous,

j'ai besoin d'un script vb qui me permette de générer aléatoirement un nombre donné de chiffre préalablement défini.(une fonction qui génére un nombre sortie d'un interval précis
,la somme des nombres générés doit être égale à un nombre que j'aurai défini à l'avance
)

deux menbres  du site m' ont fournis une aide en me proposant les scripts suivants:

Public Function TROUVER()
    
    Dim i As Variant
    i = Int(Rnd * 1000)
    TROUVER = i

End Function

et

Msgbox MyNumber

Public Function MyNumber() As Integer
   MyNumber = Int(Rnd * 1000)
End Function

mais j' ai une contrainte:
les nombres générés doivent être des milliers
je m'explique
2 000
4 000
6000
 5500
 4500
 8000
 ou 10 000
mais pas plus
 et ne doivent pas être du genre
4892
5 235
 il doivent être divisible par 2 et par 10 par 10
ensuite la somme des nombres générées doit donner une valeur que j'ai choisis

merci de votre reactivité habituelle

cordialement,

dorine flore ngounou

4 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

Conseil : Tu aurais pu continuer ton ancien post, c'est plus pratique...

Msgbox MyNumber

Public Function MyNumber() As Integer
   MyNumber = Int(Rnd * 10000)
End Function

Pour le reste cherche un chti peu....
A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

Regarde sur ces pages, tu y trouveras quelques explications sur la vérification du nombre généré...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
28
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
17 septembre 2007

merci de votre aide .

cordialement

dorine
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
De rien...

A+
Exploreur

 Linux a un noyau, Windows un pépin