Re : Liste aléatoire (macro? ou pas...)
Bonsoir René,
Merci pour ta réponse.
Je comprends le principe, mais si je me débrouille avec les diverses formules j'ai du mal avec le langage VBA...
J'ai tenté de modifier ton exemple dans mon fichier mais en vain... j'ai essayé de croiser avec l'exemple ci-dessous qui lui me prends une liste et me la recopie mais je ne parviens pas à ce que ca soit aléatoire...
ni à le mettre dans la bonne colonne...
A+ et encore merci!
Sub valeursuniques()
Dim Dico
Dim c As Range
Dim d
Dim b As Long
Set Dico = CreateObject("Scripting.Dictionary")
For Each c In Range("A5", Range("A5").End(xlDown)) 'si la liste est dans la colonne A et commence en A5
'on teste si la valeur de la cellule n'est pas déjà dans le dictionnaire
'si c'est le cas on utilise cette valeur comme nouvelle cké et comme nouvel item
If Not Dico.Exists(c.Value) Then Dico.Add c.Value, c.Value
Next c
b = 2
For Each d In Dico.items
Range("B" & b) = d 'pour recopier la liste des éléments uniques à partir de la cellule B2
b = b + 1
Next d
End Sub