Autres Ranger Ligne par date croissante

[Dimitry]

Bonjour le forum,

Malgré plusieurs recherches dans les sujets existants et sur internet je n'ai pas trouvé réponse à ma question. Je suppose que pour vous ce sera facile, je m'explique:
Vous trouverez à la fin de mon message le lien pour un fichier excel qui me sert de planning (trop lourd pour le mettre en PJ).

La colonne C détermine le premier jour de chaque étape: F1 / F2 / P1 / P2 / D (que vous trouverez dans liste déroulante de la première colonne). Une étape = une ligne
Je souhaiterais que les lignes se rangent automatiquement en fonction de la date de la colonne C.
Il est possible que plusieurs lignes aient la même dates.

www.grosfichiers.com/cUsu3uREBxj
(excel 2007)

N'hésitez pas si vous avez des questions,

Merci par avance,

Dimitry

 

[sylvanu]

Bonjour Dimitry,

Je souhaiterais que les lignes se rangent automatiquement en fonction de la date de la colonne C.

Qu'appelez vous automatiquement ?
Avec une macro et un bouton ?
Ranger du plus ancien au plus récent ou du plus récent au plus ancien ?
Sinon vous sélectionnez A6:SN20 puis faites Données/Trier.

 

[sylvanu]

Re, Just for the fun
En PJ une solution de tri avec un bouton attaché à cette macro :

Sub Tri()
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row                  ' Dernière ligne
    DC = Application.CountIf(Range("2:3"), "*")         ' Dernière colonne
    Set Plage1 = Range(Cells(6, "A"), Cells(DL, DC))    ' Plage de tri
    Set Plage2 = Range(Cells(6, "C"), Cells(DL, "C"))   ' Plage de critères

    Plage1.Select                                       ' Tri sur plage du plus récent au plus ancien
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Plage2 _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Plage1
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    [A1].Select
End Sub

PJ : https://www.cjoint.com/c/KCni7FMz8AY

 

[Dimitry]

Du plus ancien au plus récent,
Ou plutôt du plus ancien au "plus tard" car il y a surtout des dates futures, par exemple:
25 / 03 / 21
27 / 03 / 21
09 / 07 / 21
25 / 09 / 21
[...]

C'est ce qu'il me fallait (fonction tri)
Très simple mais je connaissais pas cette fonction pourtant basique,
Encore merci et bon week end