XL 2016 Macro Excel pour trier un tableau ligne par ligne sans perdre la mise en forme initiale

job75

XLDnaute Barbatruc

• 19 Août 2016

• #2

Bonjour Lucko,

Vous pouvez trier le tableau avec la macro Quick sort (à adapter).

Si vous voulez qu'on vous le fasse joignez votre fichier.

A+

 

Vote positif 0 Vote négatif

L

Lucko

Guest

• 19 Août 2016

• #3

Bonjour Job75,

Ci-joint le fichier en question. J'ai bidouillé une macro à l'aide de l'enregistreur mais je n'arrive pas à conserver les cellules coloriées à leur place.

 

Pièces jointes

• Tri par ligne.xlsm

  15.3 KB · Affichages: 39

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2016

• #4

Bonjour.
Un essai avec mon module de classe TableIndex

 

Pièces jointes

• TIdxLucko.xlsm

  30 KB · Affichages: 49

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Août 2016

• #5

Re, hello Bernard,

Code:

Sub TriTab()
Dim r As Range, a
For Each r In [Z3:AK12].Rows
  a = r
  tri a, 1, UBound(a, 2)
  r = a
Next
End Sub

Sub tri(a, gauc, droi)     ' Quick sort
Dim ref, g, d, temp
ref = a(1, (gauc + droi) \ 2)
g = gauc: d = droi
Do
    Do While a(1, g) < ref: g = g + 1: Loop
    Do While ref < a(1, d): d = d - 1: Loop
    If g <= d Then
      temp = a(1, g): a(1, g) = a(1, d): a(1, d) = temp
      g = g + 1: d = d - 1
    End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

Fichier joint.

A+

 

Pièces jointes

• Tri par ligne(1).xlsm

  22.4 KB · Affichages: 60

Vote positif 0 Vote négatif

L

Lucko

Guest

• 19 Août 2016

• #6

Merci beaucoup. Les deux solutions fonctionnent à merveille.

 

Vote positif 0 Vote négatif