tri aléatoire

minghemiz · 25 Décembre 2008

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 · 25 Décembre 2008

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 · 25 Décembre 2008

Re : tri aléatoire

Bonsoir,

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

le code :

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 · 25 Décembre 2008

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

tri aléatoire

minghemiz

XLDnaute Nouveau

abcd

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Pièces jointes

CBernardT

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

tri aléatoire

minghemiz

XLDnaute Nouveau

abcd

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Pièces jointes

CBernardT

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency