Tri automatique avec liste de tri personnalisée
Résolu/Fermé
oli_jean9
Messages postés
4
Date d'inscription
mercredi 6 juillet 2016
Statut
Membre
Dernière intervention
7 juillet 2016
-
6 juil. 2016 à 22:16
oli_jean9 Messages postés 4 Date d'inscription mercredi 6 juillet 2016 Statut Membre Dernière intervention 7 juillet 2016 - 7 juil. 2016 à 20:03
oli_jean9 Messages postés 4 Date d'inscription mercredi 6 juillet 2016 Statut Membre Dernière intervention 7 juillet 2016 - 7 juil. 2016 à 20:03
A voir également:
- Macro tri automatique excel
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Tri excel - Guide
- Thunderbird réponse automatique - Guide
- Macro word - Guide
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
7 juil. 2016 à 08:56
7 juil. 2016 à 08:56
Bonjour,
As-tu essayé d'utiliser l'enregistreur de macros pour obtenir le code correspondant à ton tri ?
A+
As-tu essayé d'utiliser l'enregistreur de macros pour obtenir le code correspondant à ton tri ?
A+
7 juil. 2016 à 15:20
7 juil. 2016 à 17:32
A+
7 juil. 2016 à 19:01
'
' TRI Macro
' Tri automatique
'
'
Range("B10:L26").Select
ActiveWorkbook.Worksheets("CÉDULE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("CÉDULE").Sort.SortFields.Add Key:=Range("E10:E26") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"NON-AUTORISÉ,AUTORISÉ,CHEMINS EN COURS,PRÊT POUR RÉCOLTE,RÉCOLTE EN COURS,FINI ATT. INVENTAIRES,FERMETURE EN COURS,FERMÉ" _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("CÉDULE").Sort.SortFields.Add Key:=Range("D10:D26") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("CÉDULE").Sort
.SetRange Range("B10:L26")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
7 juil. 2016 à 20:03