question de trie Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jeromeB
Membre habitué
Membre habitué
Messages : 79
Inscrit le : 17 avril 2016
Version d'Excel : 2013

Message par jeromeB » 3 mai 2016, 06:31

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 :D
respectueusement
jerome
Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'687
Appréciations reçues : 73
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 3 mai 2016, 07:00

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
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
j
jeromeB
Membre habitué
Membre habitué
Messages : 79
Inscrit le : 17 avril 2016
Version d'Excel : 2013

Message par jeromeB » 4 mai 2016, 06:11

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
j
jeromeB
Membre habitué
Membre habitué
Messages : 79
Inscrit le : 17 avril 2016
Version d'Excel : 2013

Message par jeromeB » 4 mai 2016, 15:06

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
j
jeromeB
Membre habitué
Membre habitué
Messages : 79
Inscrit le : 17 avril 2016
Version d'Excel : 2013

Message par jeromeB » 4 mai 2016, 20:26

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
j
jeromeB
Membre habitué
Membre habitué
Messages : 79
Inscrit le : 17 avril 2016
Version d'Excel : 2013

Message par jeromeB » 4 mai 2016, 21:19

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 :D :D :D :D
jerome
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Trie
    par quattro26140 » 11 juillet 2018, 15:53 » dans Excel - VBA
    12 Réponses
    292 Vues
    Dernier message par MFerrand
    13 juillet 2018, 14:21
  • pb trie
    par quattro » 26 juin 2014, 09:27 » dans Calc
    1 Réponses
    477 Vues
    Dernier message par madro183
    28 juin 2014, 23:26
  • PB de TRIE
    par El_Gyppie » 15 janvier 2019, 17:02 » dans Excel - VBA
    5 Réponses
    140 Vues
    Dernier message par archer
    16 janvier 2019, 12:52
  • AMELIORER TRIE DE A-Z
    par thomas67 » 21 juillet 2016, 12:01 » dans Excel - VBA
    2 Réponses
    93 Vues
    Dernier message par thomas67
    21 juillet 2016, 17:54
  • Trie de donnees
    par asme » 1 février 2018, 18:46 » dans Excel - VBA
    6 Réponses
    168 Vues
    Dernier message par asme
    2 février 2018, 20:38
  • Macro de trie
    par BonVin » 9 janvier 2018, 12:15 » dans Excel - VBA
    4 Réponses
    175 Vues
    Dernier message par Patty5046
    10 janvier 2018, 17:53