Nombre aléatoire (sans doublons)

[Jug]

Bonjour tout le monde.

Voilà j'ai besoin de votre avis concernant une formule
Je souhaite récupérer aléatoirement dans une colonne de 10 lignes, un chiffre aléatoire allant de 25 à 100 (bornes comprises) sans doublons et sans utiliser la fonction ALEA.ENTRE.BORNES() !

J'ai testé ça : =ENT(ALEA()*75+25)
Ca a l'air de fonctionné mais ça ne teste pas les doublons !

Je suis parti sur une autre piste au début INDEX+EQUIV+ALEA mais sans succès.

Merci d'avance pour votre aide et bonne continuation.

 

[job75]

Re : Nombre aléatoire (sans doublons)

Bonjour Jug, bienvenue sur XLD,

La colonne A étant vide, entrer dans les cellules de la plage A25:A100 la formule :

=ALEA()

Puis entrer dans celles de la plage B1:B10 la formule :

=EQUIV(PETITE.VALEUR(A:A;LIGNE());A:A;0)

Edit : bien sûr pour un nouveau tirage appuyer sur F9

A+

 

[Jug]

Re : Nombre aléatoire (sans doublons)

Merci pour votre aide.
Mais est ce qu'il existe une autre solution sans ajout de colonne ?

Encore une fois merci.

 

[ROGER2327]

Re : Nombre aléatoire (sans doublons)

Bonsoir

(...) est ce qu'il existe une autre solution sans ajout de colonne ? (...)

Je crains que la réponse soit non. Mais les virtuoses de la formule me démentiront peut-être. En attendant, je joins une solution en Visual Basic.​

Bonne nuit !
ROGER2327

 

[job75]

Re : Nombre aléatoire (sans doublons)

Re, bonsoir Roger

Une solution VBA également :

Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("A1:A10") 'modifiable
plage.Value = ""
If plage.Count > 76 Then Exit Sub
Randomize
For Each cel In plage
1 alea = 25 + Int(76 * Rnd)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
End Sub

Bonne nuit

 

[Jug]

Re : Nombre aléatoire (sans doublons)

Merci à vous.
Ps: désolé pour le retard de cette réponse

 

[ROGER2327]

Re : Nombre aléatoire (sans doublons)

Re...

Merci à vous.
Ps: désolé pour le retard de cette réponse

Ne soyez pas désolé : il n'y a pas d'offense.

Vieux motard que jamais !​

ROGER2327
#3350

9 Floréal An CCXVIII
2010-W17-3T15:04:28Z