Bonjour,

Voila, j'ai une liste de nom de personnes et je souhaite avoir une autre liste dans un ordre aléatoire de ces personnes sans qu'il n'y ait jamais 2 fois la même personne.

A savoir que dans la première liste il n'y a pas 2 fois le même nom..

J'ai le code suivant pour le moment pour la partie "aléatoire" :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub liste()
 
For i = 1 To 12
 
Range("C" & i) = Range("B1").Offset(Int((12 * Rnd) + 1), 0)
 
Next i
 
End Sub
Il me manque l'astuce pour la partie jamais 2 fois le même.

Merci pour votre aide.