XL 2019 Classement aléatoire

  • Initiateur de la discussion Initiateur de la discussion gg13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gg13

XLDnaute Occasionnel
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

a1a2
a2a10
a3a4
a4a3
a5a6
a6a5
a7a8
a8a7
a9a9
a10a1
 
bonjoir,
VB:
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
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
282
Réponses
0
Affichages
295
Réponses
4
Affichages
616
Réponses
12
Affichages
914
Réponses
10
Affichages
800
Réponses
1
Affichages
752
Retour