Macro tri ordre croissant tableau variable

Le 30/10/2014 à 15:08

salut tous le monde !

Je bloque sur une macro

je souhaiterai une marco qui permet de trier un tableau variable en longueur et de pouvoir trier par ordre croissant une colone.

il faudrait également que la macro rajoute au bout du tableau la formule SUBSTITUE(A2;"Poche ";"") pour avoir un numéro et ensuite pouvoir trier.

Merci d'avance

92tableu-tri-automatique.xlsx (9.12 Ko)
Le 30/10/2014 à 16:03

Bonjour,

une proposition

Sub test()
    Columns("A:A").Copy Range("D1")
    Columns("D:D").Replace What:="Poche ", Replacement:="", LookAt:=xlPart, _
                           SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                           ReplaceFormat:=False
    dli = Cells(Rows.Count, 1).End(xlUp).Row
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("D2:D" & dli) _
                             , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:D" & dli)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("D:D").Delete Shift:=xlToLeft
End Sub
Rechercher des sujets similaires à "macro tri ordre croissant tableau variable"