Mélange de lignes

[mfb]

Bonjour à Tous,
A partir d'un fil de Pierrejean en date de janv. 2006 j'ai récupéré un module permettant de réaliser un mélange de lignes.
Cela marche impec sans trous (toutes les lignes mélangées sont bien recopiées)
Or en adaptant les références lignes et colonnes j'ai foutu la "zoubizza" il se créee des trous dans la recopie.
Je m'en remets à vous une fois de plus. Le petit bout de fichier joint montre le tableau avant et après mélange.
Merçi par avance.
Daniel

 

[mfb]

Re : Mélange de lignes

Bonjour,
La nuit porte conseil et c'est bien vrai.
En Pj le fichier modifiè.
Merçi à tous ceux à qui j'ai pu donner des insommies.

Bon dimanche
Daniel

 

[job75]

Re : Mélange de lignes

Bonjour mfb,

Le "mélange" de lignes se fait très facilement avec une colonne auxiliaire où l'on entre =ALEA() :

Sub melange()
Dim o As Range, dest As Range
Set o = [D6:H20]: Set dest = [J6] 'à adapter
Application.ScreenUpdating = False
o.Copy dest
With dest.Resize(o.Rows.Count)
  .Insert xlToRight 'colonne auxiliaire
  With .Columns(0)
    .Formula = "=RAND()"
    .Value = .Value
    .Resize(, o.Columns.Count + 1).Sort .Cells, Header:=xlNo
    .Delete xlToLeft
  End With
End With
End Sub

A+

 

[mfb]

Re : Mélange de lignes

Bonjour job75,
C'est plus académique que mon bricolage.
D'autant plus que j'ai ainsi pu mélanger 2 zones de lignes situées dans une même feuille
et assembler ces résultats toujours sur cette même feuille.
Alors merçi et bonne fin de weekend.
Daniel