Problème avec des Randomize

Question

Bonjour à tous;
Voilà, j'ai un truc:
Dim nombre As Double
Randomize Timer
nombre=(Rnd * 9999999999#)

Comment faire pour obliger à trouver un nombre à 10 chiffres?
Et aussi: comment, avec un slider (de 1 à 10) faire un randomize avec autant de chiffres que la valeur du slider
du style le slider marque 5 donc on fait un randomize dans les nombres à 5 chiffres.
Et puis, dernière chose: comment choisir si le résultat du randomize est décimal ou non?

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

cs_rene38 · Answer

Randomize Timer
Dim c As Integer
c = Slider1.Value
nombre = Int(Rnd * 9 * 10 ^ (c - 1) + 10 ^ (c - 1))

Rnd(xxx) donne toujours un résultat compris entre 0 (inclus) et 1 (exclu) donc décimal

Vbsupernul · Answer

Ben voilà, merci rene38, mais voilà, j'ai un problème: je veux que ce nombre soit commun à toutes les sub. Mais si je le met dans un module, il ne trouve pas Slider1... Y a t'il
_soit une manière de le rendre global depuis une simple sub
_soit de le faire dans le module?

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

cs_rene38 · Answer

Il suffit de le déclarer dans un module :
Public nombre As Double

et ensuite de le manipuler (sans le re déclarer) depuis n'importe quel Sub

Problème avec des Randomize

3 réponses

Discussions similaires