Tri personnalisé VBA

Version imprimable

Bonjour à tous,

Je vous solicite à nouveau pour un petit problème que je ne parviens pas à régler.
Dans une feuille excel "Project", j'ai une plage de données de la colonne C à la colonne R.

C10:R11 = En tête de colonnes (il y a des cellules fusionnées)
A partir de C12 = Données à trier.

A partir de la ligne 12, je souhaite trier mes données de la manière suivante :

Colonne R : Tri de Z à A
Colonne C : Tri personnalisé, avec une liste déjà créée (General, ProgM,BP, Other)

J'ai créé la macro ci-dessous
Elle fonctionne sur toutes mes données, sauf pour la 1ère ligne de ma plage : la ligne 12.

Pourriez-vous m'éclairer sur ce qui cloche svp ?

Code (Visual Basic):
Code:

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 Sub Tri() 'Tri personnalisé Range("C10:C11").Select ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Add Key:= _ Range("R11:R163"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _ :=xlSortNormal With ActiveWorkbook.Worksheets("Project").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Add Key:= _ Range("C12:C163"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder _ :="General,ProgM,BP,Other", DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Project").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Mille merci par avance,

Bonsoir, avez vous essayez de remplacer la ligne ci dessous:

Code:

1
2
 Range("C12:C163"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder _
        :="General,ProgM,BP,Other", DataOption:=xlSortNormal

Par celle-ci et testez?

Code:

1
2
Range("C11:C163"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder _
        :="General,ProgM,BP,Other", DataOption:=xlSortNormal

Cordialement 8-)

23/08/2018, 07h19
Theze

Bonjour,

Pour la propriété "Header" tu indiques "xlYes" donc présence des entêtes de fait la ligne n'est pas prise en compte donc, soit tu fait comme Transitoire te le propose (prise en compte des entêtes dans la plage) soit tu utilises la valeur "xlNo" pour "Header" indiquant que toute la plage doit être triée
23/08/2018, 10h28
niniylle

Bonjour Transitoire, Bonjour Theze,

Merci pour votre aide respective :)

j'ai essayé en modifiant la plage selectionnée pour qu'elle prenne en compte mes entêtes, avec Header =xlYes
et également essayé en sortant les entêtes de la plage, avec Header = xlNo.

L'un comme l'autre, cela ne fonctionnait pas. Impossible de savoir pourquoi.

Re,

Parce qu'avec de l'aide, on a trouvé une solution, je la poste, car cela pourrait servir à d'autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Tri_Perso()
Dim LastLine&, plage As Range
    ' Macro1 Macro
    With Sheets("Project")
        LastLine = .Range("r" & Rows.Count).End(xlUp).Row
        Set plage = .Range("c12:r" & LastLine)
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("r12:r" & LastLine), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=Range("c12:c" & LastLine), SortOn:=xlSortOnValues, _
        Order:=xlAscending, CustomOrder:="General,ProgM,BP,Other", DataOption:=xlSortNormal
 
        With .Sort
            .SetRange plage
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

En revanche, aucune idée quant au pourquoi du comment cela ne fonctionnait pas avec les Header précédents.
Peut être le Header=xlGuess ?