Fonction "tirage au sort" sur Excel

bonjour,
regarde si ca te convient
https://www.cjoint.com/?huoN5ZjTab

MErci,

C'est tout à fait cela que je cherche. Cependant, comme je ne sais pas faire de macro, quel est la formule qui se cache derrière ce "tirage au sort"?

Merci d'avance
Cordialement,

Arnaud

Bonjour tout le monde,

Je me permet de répondre à la place de michel car j'ai une question en plus...
Il utilise la fonction rnd() qui est générateur de nombres aléatoires.

Michel,
Pourquoi le -1 ? dans :
nbre = Application.CountA(Feuil1.Range("A:A")) - 1
Là tu n'as pas de ligne de titre et je pense que le dernier n'est jamais tiré (le pôvre !). Non ?

Et puis tu aurais pu faire un effort sur le .clearcontents ;-)
Arnaud tu peux remplacer :
Range("D2:D21").ClearContents
par :
Range("D2", [D65536].End(xlUp)).ClearContents
si tu veux que tous les nombres s'effacent en colonne D

eric

Bonjour,
C'est un vieux truc qui trainait sur une étagère et j'avoue ne pas avoir regardé la proc....
J'vas rectifier les âneries, merci pour le tuyau

Edit 19h30: c'est fait et j'ai rectifié les déclarations.... De plus à l'époque (c'était sur mon ancien ordi donc 2003-2004), je ne connaissais pas les collections, et autres dictionary; je "moderniserai" 1 de ces 4
Ca nous rajeunit pas, tout ça!
Bonne soirée

Ci joint la nouvelle mouture au cas où"
https://www.cjoint.com/?huuszF0I5u