Discussion :

[niniylle]

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 :

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
 
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,

[Transitoire]

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

Code :

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

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

Par celle-ci et testez?

Code :

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

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

Cordialement

[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

[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.

[niniylle]

Re,

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

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
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 ?