Nombres aléatoires

[Pat]

Bonjour


J'ai fait un petit fichier avec une macro pour tirer une suite de nombres aléatoires
Le problème c'est qu'il y a des doubles dans ces tirages. Existe-t-il une possibilité de supprimer ce petit désagrément.

Merci et bon après-midi sur le forum. [file name=Alea.zip size=7501]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Alea.zip[/file]

 

[Blunet]

Salut

ta formule ALEA.ENTRE.BORNES(1;49) est personnalisée donc ton exple ne marche pas chez moi. Mais pour créer des nombres entiers aléatoires entre 2 bornes 1 et 50, la formule est : =(49*Alea()+1).

Plus ton intervalle (tes bornes) sont proches, puls il y'a risque de doublons.

 

[Blunet]

re, Je corrige la formule précédente =(50*Alea()+1) au lieu de =(49*Alea()+1)

Cette fonction te permettra de générer les nbre Aléatoires. Elles se trouve parmi les fonctions classiques d'Excel.
Public Function AleatoireBornée(BorneInf As Long , BorneSup As Long)
Dim ValAleat&
ValAleat = Int((BorneSup - BorneInf + 1) * Rnd + BorneInf)
AleatoireBornée = ValAleat
End Function

Ciao

 

[Pat]

Ok Je te remercie pour la rapidité de ta réponse
Ca fonctionne
Bonne soirée