Discussion :

[leloup84]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

Bonjour

ton code ne permet pas de savoir que qu'est cette variable i dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 28)

Je veux espérer qu'elle n'est pas le facteur d'itération d'une boucle For .. to ... Next
Qu'est-elle ?

[leloup84]

Merci pour ton retour, cela m'a débloqué le fait de me parler de cette variable i.

[anasecu]

Bonjour,

Je cherche à les classer par ordre ascendant sur le prix lorsque la date de saisie est dans la première quinzaine.

Il me semble qu'ainsi cela devrait répondre à ton vouloir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    BDD_Forecast.Sort.SortFields.Add Key:=Range(Cells(2, 28), Cells(ligne_BDD, 28)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    BDD_Forecast.Sort.SortFields.Add Key:=Range(Cells(2, 14), Cells(ligne_BDD, 14)), SortOn:=xlSortOnValues, Order:=IIf(Day(Date) <= 16, xlAscending, xlDescending), DataOption:=xlSortNormal  'Quinzaine de livraison asc/desc

Cela élimine le souci du 'i' noté par unparia que je salue.