Discussion :

[yoyo0688]

Bonjour,

J'ai une petite macro qui trie une sélection.
Cependant je voudrai exclure les cellules vides de la sélection.

Merci de votre aide.

Code :

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

1
2
3
4
5
6
Sub Tri2()
Feuil1.Range("D10:G41").Select
Selection.Sort Key1:=Feuil1.Range("D10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Voici le tableau que je veux trier :

Fut WTI Mai Sens Quantité Prix REMARQUE
Vente -1 106,85




Achat 20 106,02
Achat 10 105,95
Vente -1 107,17
Vente -1 107,38
Vente -1 107,22
Vente -1 106,80
Vente -2 106,85
Vente -2 107,20
Vente -2 107,05
Vente -2 107,40
Vente -1 107,61
Vente -1 107,75
Vente -3 108,00
Vente -1 107,85
Vente -1 107,74
Vente -1 108,21
Vente -1 108,27
Vente -1 107,50
Vente -2 107,25
Vente -5 108,00 Assignation
Vente -10 102,00 Assignation
Vente -10 105,50 Assignation
Vente -10 107,50 Assignation
Vente -10 106,50 Assignation
Vente -2 108,20 CAPBS
Vente -2 108,10 CAPBS
Vente -2 108,45 CAPBS

[mercatog]

Bonjour
Peut être si j'ai bien compris, fais un filtre auto + Tri. Ce qui donne quelque chose comme ceci:
Plage de données D10-Dxx avec en D10 le titre de la colonne. (Testé sur Excel 2010)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, "D").End(xlUp).Row
    .Range("D10:D" & LastLig).AutoFilter Field:=1, Criteria1:="<>"
    .AutoFilter.Sort.SortFields.Add Key:=.Range("D10:D" & LastLig), Order:=xlAscending
    With .AutoFilter.Sort
        .Header = xlYes
        .Apply
    End With
    .AutoFilterMode = False
End With

[yoyo0688]

J'ai essayé mais lors de l'excécution ça me marque : "l'indice n'appartient pas à la sélection".

Pour info le tableau a une taille de D10:G41

[mercatog]

Adapte le nom de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Plage As Range
 
Application.ScreenUpdating = False
With Sheets("Feuil1")   'Adapte le nom de la feuille
    .AutoFilterMode = False
    Set Plage = .Range("D10:G41")                         
    Plage.AutoFilter Field:=1, Criteria1:="<>"
    .AutoFilter.Range.Sort Key1:=Plage(1, 1), Order1:=xlAscending, Header:=xlYes
    .AutoFilterMode = False
    Set Plage = Nothing
End With

[yoyo0688]

je suis désolé mais ça me marque toujours le même message d'erreur.

[mercatog]

Bonjour
Tu peux mettre un extrait de ton fichier (sans données confidentielles).

[yoyo0688]

Voici.

Merci pour l'aide

[mercatog]

Mais oui, il fallait adapter le nom de la feuille
en plus, c'est la ligne 9 qui est la ligne des titres.
et la plage c'est C9:G41 avec un tri et filtrage sur la 2ème colonne (Colonne D)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Trier()
Dim Plage As Range
 
Application.ScreenUpdating = False
With Sheets("Calc")   'Adapte le nom de la feuille
    .AutoFilterMode = False
    Set Plage = .Range("C9:G24")
    Plage.AutoFilter Field:=2, Criteria1:="<>"
    .AutoFilter.Range.Sort Key1:=Plage(1, 2), Order1:=xlAscending, Header:=xlYes
    .AutoFilterMode = False
    Set Plage = Nothing
End With