XL 2019 Classement aléatoire

[gg13]

Bonjour,
Je voudrai copier les noms d'une colonne dans une autre avec un classement aléatoire comme si dessous.
J'ai regardé les aide mais ce sont des formules très compliquées que je ne comprends pas.
je pense qu'il doit exister une formule simple, pour vous les spécialistes.
Merci de votre aide.
GG13

a1		a2
a2		a10
a3		a4
a4		a3
a5		a6
a6		a5
a7		a8
a8		a7
a9		a9
a10		a1

 

[job75]

Bonjour gg13,

Dans la colonne devant les résultats entrez =ALEA() et triez sur cette colonne.

A+

 

[dysorthographie]

bonjoir,

Sub test()
Dim D As New Collection, A As New Collection, Id As Integer, Ia As Integer
With Sheets("Feuil1")
    .Columns(2).Clear
    For Ia = 0 To .Range("A1").CurrentRegion.Rows.Count - 1
    Debug.Print .Range("A1").Offset(Ia).Value
        D.Add Ia, .Range("A1").Offset(Ia).Value
        A.Add Ia, .Range("A1").Offset(Ia).Value
    Next

Randomize Format(Timer)
While D.Count > 0
DoEvents
    Id = Int(D.Count * Rnd + 1)
    Ia = Int(D.Count * Rnd + 1)
    If .Range("A1").Offset(D(Id)) <> .Range("A1").Offset(A(Ia)) Then
        .Range("B1").Offset(A(Ia)) = .Range("A1").Offset(D(Id))
        D.Remove Id: A.Remove Ia
        
    End If
Wend
End With
End Sub

 

[JHA]

Bonjour à tous,

Avec une fonction personnalisée (qui n'est pas de moi)

JHA

 

[gg13]

Merci à vous 2
Job75
j'ai collé =ALEA()
mais j'obtiens que des chiffres mais pas les noms reclassés aléatoirement comme ci-dessous

a1	0,62557729​
a2	0,42885033​
a3	0,49002921​
a4	0,00762196​
a5	0,97486055​
a6	0,43203071​
a7	0,75639175​
a8	0,25889667​
a9	0,95964061​
a10	0,24412251​
a11	0,4304702​
a12	0,25265541​
a13	0,22281773​
a14	0,31256834​
a15	0,12959387​
a16	0,34156604​
a17	0,23871044​
a18	0,42265007​

Pour la macro de dysorthographie , je l'ai affecté à un bouton mais il ne se passe rien.
gg13

 

[gg13]

dysorthographie
Ta macro marche trés bien , j'avais fais une erreur d'enregistrement.
GG13

 

[gg13]

JHA
Cette macro fonctionne très bien aussi.
J'ai maintenant plusieurs solutions
Merci a vous
GG13

 

[job75]

Job75
j'ai collé =ALEA()
mais j'obtiens que des chiffres mais pas les noms reclassés aléatoirement comme ci-dessous

a1	0,62557729​
a2	0,42885033​
a3	0,49002921​
a4	0,00762196​
a5	0,97486055​
a6	0,43203071​
a7	0,75639175​
a8	0,25889667​
a9	0,95964061​
a10	0,24412251​
a11	0,4304702​
a12	0,25265541​
a13	0,22281773​
a14	0,31256834​
a15	0,12959387​
a16	0,34156604​
a17	0,23871044​
a18	0,42265007​

J'ai bien dit qu'il fallait trier sur la colonne des formules.

 

[gg13]

JHA, désolé je ne comprends pas, j'ai essayé de trier sur la zone contenant la formule alea
mais j'obtiens toujours une série de chiffre
gg13

 

[job75]

Trier un tableau sur une colonne c'est élémentaire.

 

[Dranreb]

Bonsoir.
Avec une fonction perso de mon cru, mais utilisant une méthode éprouvée
Mélange de Fisher-Yates — Wikipédia