ZTPdiffusion
Messages postés46Date d'inscriptionlundi 16 avril 2001StatutMembreDernière intervention 7 mars 2002 18 déc. 2001 à 11:40
Resalut
Petit correctif (j'ai ajouté randomize avant la formule)
'sur la feuille mettre un bouton (command1)
'et un label (label1)
Const LimiteSup = 100
Const LimiteInf = -100
Private Sub Command1_Click()
Randomize 'Sert à initialiser le générateur de nombre aléatoire pour ne pas avoir à chaque fois la même série
Label1.Caption = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
End Sub
12miet
Messages postés3Date d'inscriptiondimanche 22 janvier 2006StatutMembreDernière intervention 4 février 2006 4 févr. 2006 à 00:40
enfaite tu mais sa dans ton command button :
Text1.Text = Int((200) * Rnd - 100)
ma texpliké un peu le 200 c le nombre de nombre ke tu veu généré et le -100 c le plus bas ke tu veu allé dans lfon c comme si tu rajoute 200 a -100 sa donne 100 donc ton max est 100 et ton minimum est -100
12miet
Messages postés3Date d'inscriptiondimanche 22 janvier 2006StatutMembreDernière intervention 4 février 2006 4 févr. 2006 à 00:40
enfaite tu mais sa dans ton command button :
Text1.Text = Int((200) * Rnd - 100)
ma texpliké un peu le 200 c le nombre de nombre ke tu veu généré et le -100 c le plus bas ke tu veu allé dans lfon c comme si tu rajoute 200 a -100 sa donne 100 donc ton max est 100 et ton minimum est -100