Vba excel au hasare

Résolu
Bonjour,
 Range("D4").Value = WorksheetFunction.Round(Rnd() * 6, 0)

Sa c'est un code pour mettre des nombres aux hasares de 0 à 6 en vba
Comment je fais pour que les nombres sois de 1 à 6
--
Etienne l-L
Configuration: Windows XP
Internet Explorer 7.0

2 réponses

  1. bonjour,
    Range("D4").Value = WorksheetFunction.Round(Rnd() * 5, 0) + 1
    c'est pour jouer aux dés ?
    A+
    0
    1. oui je fait un jeu de monopolie j'ai besoin de dée
      Merci ton code marche
      Ha oui j'oubliait, en parlent de monopolie as-tu un jeu de monopolie sur excel que je pourait prendre (telecharger) comme exemple
      0