Discussion :

[c.piette]

Bonjour le forum,

Sorry d'avance pour cette question. Elle me paraissait simple mais pourtant j'ai pas vraiment su trouver clairement ce que je cherchais sur internet et via l'enregistreur de macro.


Voilà c'est tout con mais je voudrais pouvoir trier par ordre croissant, une colonne dont le nom est dans une variable, d'un tableau/ListObject dont le nom est dans une variable.


Merci d'avance pour l'aide et déso pour la question toute simple

[parmi]

Bonjour,

Quelque chose comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Tri()
    Dim Tablo As String
    Dim Entete As String
 
    Tablo = ActiveWorkbook.Worksheets("Feuil1").Range("G1")     'nom du tableau
    Entete = ActiveWorkbook.Worksheets("Feuil1").Range("G2")    'nom de l'entête à trier
 
    Range(Tablo & "[#All]").Select
    ActiveWorkbook.Worksheets("Feuil1").ListObjects(Tablo).Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Feuil1").ListObjects(Tablo).Sort.SortFields. _
        Add Key:=Range(Tablo & "[" & Entete & "]"), SortOn:=xlSortOnValues, Order:=xlAscending _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").ListObjects(Tablo).Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

On pourrait éliminer le Select...

[c.piette]

Re,

Merci à toi, c'est exactement ce que je cherchais Je mets si dessous le code retravailler qui permet de boucler sur des feuilles pour trier certain tableaux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    Dim Tablo As String
    Dim EnTete As String
    Dim XLBook As Excel.Workbook
    Dim i As String
    Dim Feuille As Worksheet
 
 
    Workbooks(Prenom & " " & Nom & ".xlsm").Activate
    Set XLBook = ActiveWorkbook
 
    For Each Feuille In XLBook.Worksheets
        If InStr(1, Feuille.Name, "Calcul") <> 0 Then 'C'est qu'on est sur une bonne page
 
            Tablo = "Tableau" & Replace(Feuille.Name, " ", "") & "Provisoire"
            EnTete = "Date"
 
            Feuille.ListObjects(Tablo).Sort.SortFields. _
                Clear
            Feuille.ListObjects(Tablo).Sort.SortFields. _
                Add Key:=Range(Tablo & "[" & EnTete & "]"), SortOn:=xlSortOnValues, Order:=xlAscending _
                , DataOption:=xlSortNormal
 
 
            With Feuille.ListObjects(Tablo).Sort
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
    Next Feuille

J'ai par contre une petite question (que je pourrais tester moi même mais je la pose tout de même): est-ce que ces cellules sont "fictivement" mise dans un certain ordre ou l'ordre qu'elles ont après le tri est leur ordre "réel" ... ? Je m'explique: si je pose cette question, c'est parce que lorsqu'on annule le filtre, les données se remettent dans leur position d'origine. Donc Excel "retient" ces anciennes positions... Donc lorsque l'on parcours le tableau trié avec un For...each .. Est-ce que l'on parcours bien les cellules dans l'ordre croissant ?


Merci à toi quoi qu'il en soit

[joe.levrai]

Bonjour,

la réponse à ta question est ... dans la question.

si on annule le filtre

donc si tu filtres et que derrière tu parcoures les lignes ... sans retirer le filtre... à ton avis ?

[c.piette]

Bonjour Joe,


A mon avis c'est bon, mais de fait, j'aurais plutôt du utiliser l'exemple des filtres ... lorsque l'on filtre un tableau et que l'on veut parcourir l'ensemble des cellules restantes, il faut préciser ".SpecialCells(xlCellTypeVisible)", ce qui, pour un utilisateur débutant, n'est pas quelque chose d'évident (par en terme de difficulté mais en terme d'évidence/logique).

Et ici de même, si on supprime le filtre, tout revient comme ... D'où ma question: est-ce qu'un tri n'est qu'un artifice visuel ou le array dans lequel les valeurs du tableau sont encodées est lui aussi trié ?


Bien à toi

C.

[Djohn92]

Bonjour,
Je comprends ta question
A priori (j'ai refait le est pour être certain), le TRI est conservé même après la "mort" du filtre/tri,
contrairement au filtre qui lui disparait effectivement.

Pas d'artifice donc, ça attaque les données en dur, et parfois ca joue des tours sur les formules.

:-)

[joe.levrai]

Je te renvoie à une autre de tes phrases : fait le test, tu verras et comprendras

le forum ne doit pas te faire perdre la capacité de comprendre par toi-même comment ça fonctionne, surtout que tu n'es plus vraiment un débutant

[c.piette]

Re Djohn92,


Merci pour la confirmation :p


Re joe.levrai,


Je sais, je sais mais une pointe de paresse s'imposait :p

[Djohn92]

Sympa. C'est typiquement ce genre de phrase qui pourrait me faire péter un cable.

Traduire :
"Vous, vous pouvez vous casser le ***, mais moi, non, je regarde"

[parmi]

Bof, moi je me dis que la paresse nous amène à devenir bon programmeur ce qui nous permet de développer des outils qui travaillent pour nous
Autre façon de voir la chose...
Mais je te comprends Djohn92

[joe.levrai]

bah, on est tous paresseux à un moment

la preuve, j ai pas eu le courage d'expliquer et l'ai renvoyé à ses tests