Discussion :

[magikmed]

Bonjour,

Je cherche à effectuer un tri par date sur plusieurs colonnes. Ce qui me pose problème c'est que les colonnes vont deux par deux. Pour trier les deux premières colonnes, pas de soucis. En revanche je n'arrive pas à traiter celles qui suivent. J'ai bien pensé à faire une boucle mais je n'arrive pas à mettre de variable dans Range. Ce n'est pas évident à expliquer donc je vous laisse un petit fichier exemple sur lequel est programmé le tri pour les deux premières colonnes. Sachant que je veux repeter la même opération sur toutes les colonnes suivantes, vous comprendrez surement mieux avec ce fichier.

test_tri.xls

Merci pour votre aide.

[Ltspitfire]

Bonjour,

Remplace ce que tu avais par :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
Worksheets("Feuil1").Range("A4:B9").Sort _
Key1:=Worksheets("Feuil1").Range("B4"), Order1:=xlDescending
 
Worksheets("Feuil1").Range("C4:D9").Sort _
Key1:=Worksheets("Feuil1").Range("D4"), Order1:=xlDescending
 
Worksheets("Feuil1").Range("E4:F9").Sort _
Key1:=Worksheets("Feuil1").Range("F4"), Order1:=xlDescending
End Sub

J'espère avoir répondu à ton attente

Cordialement,
Ltspitfire

[casefayere]

Bonjour,

J'avais également préparé ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Dc As Long, Dl As Long, x As Long
With Sheets("Feuil1")
  Dc = .Cells(1, .Columns.Count).End(xlToLeft).Column 'derniere colonne
  Dl = .Cells(.Rows.Count, 1).End(xlToLeft).Row 'derniere ligne
 
  For x = 1 To Dc Step 2
    .Range(.Cells(Dl, Dc), .Cells(Dl, Dc + 1)).Sort _
    Key1:=.Cells(4, Dc), Order1:=xlDescending
  Next x
End With
End Sub

[magikmed]

Merci pour vos réponse.

Ltspitfire ton code fonctionne correctement mais je vous ai communiqué un fichier test, mon vrai fichier contient beaucoup plus de colonnes que ça et ce nombre de colonnes peut changer donc ça ne collera pas si j'applique ton code.

casefayere ton code me semble plus intéressant mais après test j'ai vu qu'il ne fonctionnait pas. Dl prend la valeur 65536 donc j'ai remplacé la ligne

Code :

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

Dl = .Cells(.Rows.Count, 1).End(xlToLeft).Row 'derniere ligne

par

Code :

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

Dl = .Cells(.Rows.Count, 1).End(xlUp).Row 'derniere ligne

après cette modif, Dl à la bonne valeur (dans mon exemple, Dl=8) mais le tri ne s'effectue pas, je ne sais pas pourquoi...

Merci encore pour votre aide

EDIT : A quoi sert le "x" s'il n'est pas utilisé dans le tri ? Parce que là, le tri se fait toujours sur le même range, à savoir sur les colonnes 6 et 7 du rang 8...

[casefayere]

j'ai vu qu'il ne fonctionnait pas. Dl prend la valeur 65536 donc j'ai remplacé la ligne

une étourderie de ma part,

je vais vérifier pour le tri

[Ltspitfire]

Re,

Il fallait le préciser

Utilise cela, à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    ActiveWorkbook.Worksheets("X").Sort.SortFields.Add Key:=Range("B" & premiereLigne & ":B" & derniereLigne), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("X").Sort
        .SetRange Range("A" & premiereLigne & ":B" & derniereLigne)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Pour les deux variables, libre a toi de les mettre en dure ou non.
Tu fais cela pour chacune des paires de colonne.

Cordialement,
Ltspitfire

[casefayere]

Excuses-moi Ltspitfire,

ma version corrigée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Dc As Long, Dl As Long, x As Long
With Sheets("Feuil1")
  Dc = .Cells(1, .Columns.Count).End(xlToLeft).Column 'derniere colonne
  Dl = .Cells(.Rows.Count, 1).End(xlUp).Row 'derniere ligne
 
  For x = 1 To Dc Step 2
    .Range(.Cells(Dl, Dc), .Cells(Dl, Dc + 1)).Sort _
    Key1:=.Range(.Cells(4, Dc), .Cells(Dl, Dc)), Order1:=xlDescending
  Next x
End With
End Sub

[Ltspitfire]

Re,

Pas de soucis.

Ta solution est beaucoup mieux vu qu'elle gère le tri quelque soit le nombre de paires de colonne à traiter.
Bonne soirée.

Cordialement,
Ltspitfire

[magikmed]

Re,
J'ai finalement opté pour ton code casefayere mais je l'ai modifié un peu parce qu'il ne fonctionnait pas chez moi au départ. De plus, et j'avais oublié de la préciser, le nombre de ligne ne sera pas le même pour toutes les colonnes. Voila ce à quoi j'ai abouti et qui fonctionne très bien pour moi :

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
Private Sub CommandButton1_Click()
 
Dim Dc As Long, Dl As Long, x As Long
With Sheets("Feuil1")
    Dc = .Cells(1, .Columns.Count).End(xlToLeft).Column 'derniere colonne
    Dl = 1
    For i = 1 To Dc Step 2
        tmp = .Cells(.Rows.Count, i).End(xlUp).Row 'derniere ligne
        If tmp > Dl Then
            Dl = tmp
        End If
    Next i
    For x = 1 To Dc Step 2
        .Range(.Cells(4, x), .Cells(Dl, x + 1)).Sort _
        Key1:=.Range(.Cells(4, x + 1), .Cells(4, x + 1)), Order1:=xlDescending
    Next x
End With
 
End Sub

En tout cas, merci a vous les deux pour le coup de main j'aurais sûrement mis un temps fou à trouver la solution tout seul.