Autres Ranger Ligne par date croissante

Dimitry · 13 Mars 2021

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 · 13 Mars 2021

Bonjour Dimitry,

Dimitry à dit:
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 · 13 Mars 2021

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

VB:

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 · 13 Mars 2021

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

Autres Ranger Ligne par date croissante

Dimitry

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Dimitry

XLDnaute Nouveau

Discussions similaires