Bonjour,
Je suis en train de reprendre un programme en VB qui analyse toute une série de donnée dans une ReadSheet "Data" et donne les resultats dans toute une série de WriteSheet
Mon problème c'est que pour que le programme fonctionne il faut, pour une raison spécifique, que les lignes de "Data" soient classées par ordre décroissant de la deuxième colonne
Or normalement ce code devrais le faire mais il ne fonctionne pas
Quelqu'un pourrait il me donner un petit conseil ?? :-)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 'sort rows by Y (2nd column) Sheets("Data").Select With ReadSheet .Range(.Cells(1, 1), .Cells(miNumCountries, miTotalColumns)).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ' .Columns("B:IV").EntireColumn.AutoFit .Cells(1, 1).Select End With
Ou même me dire comment utiliser le boutton Tri Croissant de Excel pour faire en sorte que toute les lignes soient classées suivant cet ordre decroissant de la colonne deux ?!?!
Je sais ca à l'air bizarre mais ça m'aiderais beaucoup so qql pouvait me donner des conseil la dessus
Pfou..... pas facil VBA !!!
Merci d'avance
Partager