Tri ascendant ou descendant en fonction de la quinzaine
Bonjour,
J'ai une liste de commande une date de commande et un prix.
Je cherche à les classer par ordre ascendant sur le prix lorsque la date de saisie est dans la première quinzaine.
Puis par ordre descendant lorsqu'il s'agit de la deuxième quinzaine.
Comment procéder.
J'ai pour l'heure une clé de regroupement à 1 ou 2 si le jour est en dessous de 16 ou au dessus de 16.
Puis j'ai tenté ceci dans ma macro mais il ne veut pas.
Code:
1 2 3 4 5 6
| BDD_Forecast.Sort.SortFields.Add Key:=Range(Cells(2, 28), Cells(ligne_BDD, 28)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'Quinzaine de livraison
If (BDD_Forecast.Cells(i, 28).Value = 1) Then 'temps de mh standard ascendant 1ère quinzaine et descandant 2ème quinzaine
BDD_Forecast.Sort.SortFields.Add Key:=Range(Cells(2, 14), Cells(ligne_BDD, 14)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Else
BDD_Forecast.Sort.SortFields.Add Key:=Range(Cells(2, 14), Cells(ligne_BDD, 14)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End If |