Mélanger des lignes

[Hulk]

Hello le Forum,

Comme le dit l'intitulé, j'ai un souci de mélange de lignes.

Il y a, je pense, la fonction ALEA, mais je n'arrive pas l'utiliser.

Voir fichier joint svp.

Merci beaucoup pour votre aide.

Bonne fin de journée.

Hulk.

 

[Catrice]

Re : Mélanger des lignes

Bonsoir,

Ci-joint un exemple.

 

[Hulk]

Re : Mélanger des lignes

Hello,

Salut Catrice.

Super merci.

Juste pour savoir, il n'y a pas plus simple avec la fonction ALEA ?

Merci.

Hulk.

 

[jp14]

Re : Mélanger des lignes

Bonsoir

Ci joint le fichier avec une macro pour répartir les lignes de manière aléatoire.

Création d'une copie et transfert les lignes de manière aléatoire.

A tester et à modifier

JP

 

[Catrice]

Re : Mélanger des lignes

Hulk,

Le plus simple, c'est de recopier ALEA() dans la permiere ou derniere colonne vide et de faire un tri sur cette colonne ...

Sinon, par macro, on peut simplifier entre autres si les zones sont fixes, si on peut laisser ALEA() dans les cellules etc ...

 

[ROGER2327]

Re : Mélanger des lignes

Bonsoir !

Affecter ce code à la 'Feuil1' devrait résoudre le problème.

Option Explicit

Sub MELANGE_LES_LIGNES()
Dim t, s, i As Long, j As Long, a As Long
    With Cells(9, 2)
        t = .CurrentRegion.Value
        For i = 1 To UBound(t, 1)
            a = Int((UBound(t, 1) - i + 1) * Rnd + i)
            For j = 1 To UBound(t, 2)
                s = t(a, j): t(a, j) = t(i, j): t(i, j) = s
            Next j
        Next i
        Range(.Offset(0, 0), .Offset(UBound(t, 1) - 1, UBound(t, 2) - 1)).Value = t
    End With
End Sub

Si la première cellule du tableau de données (B9, ou 'Cells(9,2)' dans l'exemple fourni) est ailleurs, il suffit de remplacer les paramètres de 'Cells(9,2)' par les paramètres adéquats.
La procédure proposée opère sur une zone de cellules contigües de dimensions quelconques pourvu qu'elle soit bordée à gauche et à droite par une colonne vide ou un bord de la feuille, en haut et en bas par une ligne vide ou un bord de la feuille.

Cordialement

 

[Hulk]

Re : Mélanger des lignes

Hello,

Merci à vous de m'avoir aidé.

Ok merci pour ta réponse Catrice.

Merci à tous pour votre aide et chapeau.

Bonne soirée.

Hulk.

 

[Staple1600]

Re : Mélanger des lignes

Bonsoir



Avec DECALER et ALEA associé à RECHERCHEV

(je ne sais si ALEA peut générer des doublons ou pas)

Si Toto en A2

dans une cellule hors du tableau (pout mon test en G2)
=DECALER($A$2;ENT(ALEA()*8)+1;0;1;1)


puis en H2
=RECHERCHEV(G2;$A$2:$F$10;2;FAUX)

etc

 

[Hulk]

Re : Mélanger des lignes

Hello,

Salut Staple, ne te fâche pas, mais là j'avoue ne pas comprendre ta formule et ne pas réussir à l'appliquer à mon fichier, mais ne te tracasse pas, avec les autres solutions proposées, finalement ça le fait bien (même très bien).

Merci quand même.

Bonne soirée.

Hulk.

PS. C'est marrant, parfois c'est complexe et je capte (à peu près 😀) et parfois ça à l'air (plutôt) simple, et je ne capte rien ! Suis-je normal ? 😀