Macro pour touche F9 (ALEA)

[JJ1]

Bonsoir le Forum,

Dans mon fichier, je souhaiterais un code VBA qui agit 1000 fois sur la touche F9 pour produire aléatoirement 1000 fois 12 nombres et les conserver à partir de la colonne AA.
Pouvez-vous m'y aider?
merci
Bonne soirée

 

[pierrejean]

Re : Macro pour touche F9 (ALEA)

Re

Salut Tibo
Salut JC
Salut Phillipe
Salut Michel
Salut Tototiti
Salut Fo_rum
Salut JJ1

Contrairement a ce que tu crois une macro peut très bien sortir des nombres de maniere pas totalement aleatoire
La seule condition etant de definir au prealable comment influencer le tirage
A partir de la ce sera plus ou moins complexe , mais je te garantis qu'on pourra y arriver
Voici une macro qui ne sortira que 1 4 ou 8 et avec 3 fois plus de 1 que de 4 ou 8

Sub test()
numeros = Array(1, 4, 1, 8, 1)
For m = 1 To 1000
 For n = 1 To 12
  Randomize
   x = Int((5 * Rnd) + 1) - 1
   Cells(m, n) = numeros(x)
 Next n
Next m
End Sub