Sauvegarder ordre de tri personnalisé
Résolu/Fermé
mike the llama
Messages postés
315
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
20 février 2024
-
13 déc. 2014 à 13:01
mike the llama Messages postés 315 Date d'inscription vendredi 14 septembre 2007 Statut Membre Dernière intervention 20 février 2024 - 14 déc. 2014 à 16:18
mike the llama Messages postés 315 Date d'inscription vendredi 14 septembre 2007 Statut Membre Dernière intervention 20 février 2024 - 14 déc. 2014 à 16:18
A voir également:
- Sauvegarder ordre de tri personnalisé
- Excel trier par ordre croissant chiffre - Guide
- Logiciel de sauvegarde - Guide
- Sauvegarder téléphone android - Guide
- Sauvegarder sms android - Guide
- Sauvegarder sms iphone - Guide
1 réponse
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
13 déc. 2014 à 15:56
13 déc. 2014 à 15:56
Bonjour,
L'enregistreur de macro a été fait pour toi.
https://www.commentcamarche.net/contents/1374-macros-comment-les-creer
A+
L'enregistreur de macro a été fait pour toi.
https://www.commentcamarche.net/contents/1374-macros-comment-les-creer
A+
13 déc. 2014 à 17:25
Merci pour cette solution !
J'ai réussi à créer ma macro qui marche nickel, sauf qu'elle n'agit "curieusement" (enfin pur moi) pas sur les lignes 4 et 5 de ma feuille Excel, quelles qu'elles soient (les lignes 1, 2 et 3 étant réservées aux titres).
Aurais-tu une idée d'où pourrait venir le problème ?
13 déc. 2014 à 19:30
(Macro > Modifier)
A+
13 déc. 2014 à 20:19
' Trie la feuille "suivi global" de la manière la plus lisible qui soit. Raccourci = CTL+SHIFT+M.
'
' Touche de raccourci du clavier: Ctrl+Shift+M
'
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Add Key _
:=Range("A4:A207"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Add Key _
:=Range("CO4:CO207"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Add Key _
:=Range("CJ4:CJ207"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Add Key _
:=Range("AS4:AS207"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Add Key _
:=Range("AD4:AD207"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Add Key _
:=Range("N4:N207"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort.SortFields.Add Key _
:=Range("B4:B207"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("suivi_global").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
14 déc. 2014 à 10:14
Difficile d'en dire plus sans voir le fichier.
A+
14 déc. 2014 à 16:18
=> Le simple fait de passer ma cellule A1 en mode "filtrer par l'icône de la cellule sélectionnée" permet de faire en sorte que la macro s'applique sur tout la plage...
Je ne suis pas sûr que cette solution soit très orthodoxe, mais c'est déjà pas mal ;)
Merci beaucoup pour ton aide, Gyrus !
++