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