XL 2013 RESOLU - Tri personnalisé VBA

N

niniylle

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

VB: 
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,
 
Dernière édition:
Trier par date Trier par votes
Lone-wolf

Lone-wolf

XLDnaute Barbatruc
Re

Un essai comme ceci

VB: 
Sub Tri()
dim fin&
'Tri personnalisé

    With Sheets("Project")
         fin = .Range("L" & Rows.Count).End(xlUp).Row
        .AutoFilter.Sort.SortFields.Clear
        .AutoFilter.Sort.SortFields.Add Key:= _
        .Range("r12:r" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal

        .AutoFilter.Sort.SortFields.Add Key:= _
        .Range("c12:c" & fin), SortOn:=xlSortOnValues, Order:=xlAscending, _
        CustomOrder:="General,ProgM,BP,Other", DataOption:=xlSortNormal
        With .AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Hello
essaie avec ce code (que j'ai obtenu avec l'enregistreur de macro) puis quelques modifs
VB: 
Sub Macro1()
'
' Macro1 Macro

    LastLine = ActiveSheet.Range("R" & Rows.Count).End(xlUp).Row
    Range("C12:R" & LastLine).Select
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Add Key:=Range("R12:R" & LastLine), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Add Key:=Range("C12:C" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Project").Sort
        .SetRange Range("C12:R" & LastLine)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
Vote positif 0 Vote négatif
N

niniylle

XLDnaute Nouveau
Lone-wolf à dit:
Re

Un essai comme ceci

VB: 
Sub Tri()
'Tri personnalisé

    With Sheets("Project")
        .AutoFilter.Sort.SortFields.Clear
        .AutoFilter.Sort.SortFields.Add Key:= _
        .Range("R12:R163"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal

        .AutoFilter.Sort.SortFields.Add Key:= _
        .Range("C12:C163"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        CustomOrder:="General,ProgM,BP,Other", DataOption:=xlSortNormal
        With .AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub
Cliquez pour agrandir...


Re Lone-Wolfe

Décidément, merci pour ton aide :)

J'ai essayé, mais j'ai exactement le même problème.
Cela fonctionne, sauf pour la ligne 12 :'(
 
Vote positif 0 Vote négatif
N

niniylle

XLDnaute Nouveau
vgendron à dit:
Hello
essaie avec ce code (que j'ai obtenu avec l'enregistreur de macro) puis quelques modifs
VB: 
Sub Macro1()
'
' Macro1 Macro

    LastLine = ActiveSheet.Range("R" & Rows.Count).End(xlUp).Row
    Range("C12:R" & LastLine).Select
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Add Key:=Range("R12:R" & LastLine), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Add Key:=Range("C12:C" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Project").Sort
        .SetRange Range("C12:R" & LastLine)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Cliquez pour agrandir...


Salut Vgendron,

Merci pour ta réponse.
Cependant, le tri personnalisé n'apparait pas dans le code :S
 
Vote positif 0 Vote négatif
N

niniylle

XLDnaute Nouveau
Je viens d'essayer un autre code ci-dessous, et comme les autres, il ne fonctionne toujours pas sur la ligne 12 :(

VB: 
Sub TriBis()
derliR = Sheets("Project").Range("R" & Rows.Count).End(xlUp).Offset(1, 0).Row
derliC = Sheets("Project").Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Row

'Dim LignR As Row

  
    ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Clear
  


    ActiveWorkbook.Worksheets("Project").AutoFilter.Sort.SortFields.Add Key:= _
        Range("R12:R" & derliR), 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:C" & derliC), 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
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
il te suffit de remplacer la ligne du tri A Z de la colonne C par ton tri perso

VB: 
Sub Macro1()
'
' Macro1 Macro
  
    LastLine = ActiveSheet.Range("R" & Rows.Count).End(xlUp).Row
    Range("C12:R" & LastLine).Select
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Add Key:=Range("R12:R" & LastLine), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Project").Sort.SortFields.Add Key:=Range("C12:C" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="General,ProgM,BP,Other", DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Project").Sort
        .SetRange Range("C12:R" & LastLine)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

@Lone-wolf : pour les activeworkbook.. j'ai juste laissé ce que l'enregistreur avait mis.. :-D
 
Vote positif 0 Vote négatif
Lone-wolf

Lone-wolf

XLDnaute Barbatruc
Re

@niniylle

EDIT : petite correction de la macro de vgendron.

VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
XL 2013 Macro décale d'une colonne
Réponses
1
Affichages
273
candido57
C
J
  • Question
XL 2019 Trier efficacement un tableau
Réponses
3
Affichages
316
JMP56
J
Usine à gaz
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
290
Usine à gaz
Usine à gaz
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
402
Averell1976
A
G
  • Question
Microsoft 365 tri automatique dates
Réponses
6
Affichages
623
GUERET
G
B
  • Question
XL pour MAC Problème macro tri
Réponses
2
Affichages
518
Benjy51190
B
S
  • Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
453
Staple1600
Staple1600
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
591
MickaeL_D
M
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
2 K
fanou06
F
R
  • Question
XL 2016 Barre de progression
Réponses
1
Affichages
618
sylvanu
sylvanu

Membres actuellement en ligne

9 membres et 81 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 329
Messages
2 087 327
Membres
103 517
dernier inscrit
hbenaoun63