tri aléatoire

[minghemiz]

bonjour,

je suis enseignant. j'ai tapé un QCM de 76 questions dans excel avec à chaque fois, une ligne pour la question et 4 lignes pour les 4 propositions.

je voudrais en choisir 15 de manière aléatoire et évidemment sans répétition.
j'ai essayé avec la fct "alea" mais j'ai trop de répétitions.

comment puis je faire?

(nb: j'y connais rien en macro...)

merci

 

[abcd]

Re : tri aléatoire

Bonsoir, bienvenu sur le forum et joyeux Noël,

Il existe une fonction ALEAS qui permet de faire ce que tu souhaites.
Elle n'est pas native dans Excel, il faut télecharger Morenfunc sur la toile, c'est gratuit.

abcd

 

[Cousinhub]

Re : tri aléatoire

Bonsoir,

regarde le fichier joint, 15 numéros au hasard, entre 1 et 76.....

le code :

Sub tirage()
Dim X As Byte, MesNumeros As Object
Set MesNumeros = CreateObject("Scripting.Dictionary")
Do While X < 15
    Randomize (Timer)
    Num = Int((76) * Rnd + 1)
    If Not MesNumeros.Exists(Num) Then
        MesNumeros.Add Num, Num: X = X + 1
    End If
Loop
[A1].Resize(MesNumeros.Count, 1).Value = Application.Transpose(MesNumeros.items)
Range("A1:A15").Sort Key1:=Range("A1")
MesNumeros.RemoveAll
End Sub

le fichier :

 

[CBernardT]

Re : tri aléatoire

Bonjour minghemiz et le forum,

Dans le fichier joint deux possibilités de tirage basées sur la fonction Alea()
installée dans la colonne A :

Le résultat est présent :

1- Directement en colonne C ;
2- Dans une liste en colonne I.

Cordialement

Bernard