Question de trie

bonjour à tous

merci à tous ceux qui mon aidé

petite question:

savez -vous la signification du symbole :

la petite flèche vers le haut lors d'un trie

je crois que cela veut dire trie en ordre croissant ( mais pas sur)

est il possible de le faire avec un code vba?

si oui que dois-je rajouter dans ce code:

ActiveSheet.Range("$A$10:$CA$202").AutoFilter Field:=1, Criteria1:=Array( _

"SK", "S1", "S2", "SCAOS", "S4"), Operator:=xlFilterValues

ActiveSheet.Range("$A$10:$CA$202").AutoFilter Field:=2, Criteria1:=Array( _

"CNE", "LTN", "ADC", "ADJ", "SCH", "SGT", "CC1", "CCH", "CPL", "1CL", "SDT"), Operator:=xlFilterValues

merci à vous tous

respectueusement

jerome

Bonjour,

ActiveSheet.Range("$A$10:$CA$202").AutoFilter Field:=1, Criteria1:=Array( _

"SK", "S1", "S2", "SCAOS", "S4"), Operator:=xlFilterValues

Filtre la colonne 1 avec comme critére "SK", "S1", "S2", "SCAOS", "S4"

ActiveSheet.Range("$A$10:$CA$202").AutoFilter Field:=2, Criteria1:=Array( _

"CNE", "LTN", "ADC", "ADJ", "SCH", "SGT", "CC1", "CCH", "CPL", "1CL", "SDT"), Operator:=xlFilterValues

Idem mais sur la colonne 2

la petite fléche vers le haut tri du + petit au + grand

ex: filtre et trie

Sub test()

    ActiveSheet.Range("$A$9:$A$17").AutoFilter Field:=1, Criteria1:=Array("S1", _
        "S2", "S4", "SCAOS", "SK"), Operator:=xlFilterValues
    ActiveWorkbook.Worksheets("Feuil3").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil3").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("A9:A17"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil3").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

bonjour a tous et merci pour ta réponse M12

j'ai essaye d'adapter le code que tu ma donné mais sans réussite hélas ;

en effet mon but été de trans former le:

ActiveWorkbook.Worksheets("Feuil3") pour la feuille active afin de l'actionner via une macro ( car ce code sera utilisé par plusieurs feuilles en tout 14 feuilles;

mais rien hélas

en fin second souci lorsque j'adapte le code en changeant les plages des cellules remplacer:

("$A$9:$A$17") par("$A$10:$A$2O2") problème le mot APPLY se mets en jaune

je ne sais pas si il y a un une cause à effet

je fais un extrait de mon fichier pour le mettre en pièce jointe

mais merci d'avance pour ce début de réponse

respectueusement

jérome

rebonjour à tous:

j'ai réussit à faire ce code pour le premier field:

ActiveSheet.Range("$A$10:$A$202").AutoFilter Field:=1, Criteria1:=Array("S1", _

"S2", "S4", "SCAOS", "SK"), Operator:=xlFilterValues

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _

("A10:A202"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.ActiveSheet.AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

il fonctionne

j'ai modifié ce code pour le second champs mais problème:

ActiveSheet.Range("$B$10:$B$202").AutoFilter Field:=2, Criteria1:=Array("SDT", "1CL", "CPL", "CCH", "CC1", "SGT", "SCH", "ADJ", "ADC", "LTN", "CNE"), Operator:=xlFilterValues

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _

("B10:B202"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.ActiveSheet.AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

mon erreur vient d'où?

je vous remercie d'avance

respectueusement

jérôme

re,

quelqu'un peut il m'aider sur le code:

ActiveSheet.Range("$B$10:$B$202").AutoFilter Field:=2, Criteria1:=Array("SDT", "1CL", "CPL", "CCH", "CC1", "SGT", "SCH", "ADJ", "ADC", "LTN", "CNE"), Operator:=xlFilterValues

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _

("B10:B202"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.ActiveSheet.AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

je n'arrive pas à trouver ce qu'il ne va pas dans le code.....

je vous remercie d'avance pour tout

respectueusement

jerome

bonsoir,

j'ai trouvé le bon code:

Range("A10:CA10").Select

Selection.AutoFilter

ActiveWindow.SmallScroll ToRight:=-7

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range( _

"A11:A205"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

"SK,S1,S2,SCAOS,S4", DataOption:=xlSortNormal

ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range( _

"B11:B205"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

"CNE,LTN,ADC,ADJ,SCH,SGT,CC1,CCH,CPL,1CL,SDT", DataOption:=xlSortNormal

With ActiveWorkbook.ActiveSheet.AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

merci à vous tous et bon weekend à tous

jerome

Rechercher des sujets similaires à "question trie"