Tri sur des dates

Version imprimable

Tri sur des dates

Bonjour à tous je souhaiterais trier une colonne excel contenant un nombre de jours, ou des heurs depuis un instant T

Je ne peux pas mettre le fichier car j'ai le message "fichier non valie".

Je mets donc les valeurs de la colonne dans le corps du message

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
11 mins ago
3 days 5 hrs ago
2 hrs 19 mins ago
2 hrs 19 mins ago
2 hrs 20 mins ago
2 hrs 18 mins ago
8 days 17 hrs ago
1 day 18 hrs ago
8 hrs 1 min ago
321 days 1 hr ago
321 days 1 hr ago
9 days 9 hrs ago
11 days 19 hrs ago
12 hrs 14 mins ago
4 days 20 hrs ago
11 hrs 18 mins ago
127 days 23 hrs ago
443 days 5 mins ago
443 days 5 mins ago
443 days 4 mins ago
443 days 3 mins ago
443 days 3 mins ago
442 days 23 hrs ago
442 days 23 hrs ago
442 days 23 hrs ago
442 days 23 hrs ago
42 days 13 hrs ago
4 days 18 hrs ago
291 days 9 hrs ago
8 days 10 hrs ago
8 days 10 hrs ago
8 days 10 hrs ago
191 days 18 hrs ago

Merci d'avance pour votre aide

1 pièce(s) jointe(s)

Bonjour,

Soit un tableau structuré "t_Delais" composé de 5 colonnes :

Pièce jointe 647916

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Option Explicit
 
Sub TriDelai()
 
Dim I As Integer, J As Integer
Dim AireDelai As Range
Dim TableDelai As Variant
Dim TempsEnMinutes As Long
 
    Set AireDelai = Range("t_Delais[Temps]")
    Range(AireDelai.Offset(0, 1), AireDelai.Offset(0, 3)).Clear
 
    For I = 1 To AireDelai.Count
        TempsEnMinutes = 0
        TableDelai = Split(AireDelai(I), " ")
        If UBound(TableDelai) > 0 Then
           For J = LBound(TableDelai) To UBound(TableDelai)
               If InStr(1, TableDelai(J), "days", vbTextCompare) > 0 Then
                  AireDelai(I).Offset(0, 1) = TableDelai(J - 1)
                  TempsEnMinutes = TableDelai(J - 1) * 24 * 60
               End If
 
               If InStr(1, TableDelai(J), "hrs", vbTextCompare) > 0 Then
                  AireDelai(I).Offset(0, 2) = TableDelai(J - 1)
                  TempsEnMinutes = TempsEnMinutes + TableDelai(J - 1) * 60
               End If
 
               If InStr(1, TableDelai(J), "mins", vbTextCompare) > 0 Then
                  AireDelai(I).Offset(0, 3) = TableDelai(J - 1)
                  TempsEnMinutes = TempsEnMinutes + TableDelai(J - 1)
               End If
 
                AireDelai(I).Offset(0, 4) = TempsEnMinutes
 
           Next J
        Else
 
        End If
 
    Next I
 
    With Sheets("Feuil1").ListObjects("t_Delais")
         .Sort.SortFields.Clear
         .Sort.SortFields.Add2 Key:=Range("t_Delais[Total]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
 
    Set AireDelai = Nothing
 
End Sub

17/12/2023, 01h21
sam01

Merci. C'est un code vbscript que je mets dans la feuille Excel c'est bien ça?
17/12/2023, 03h11
E KERGRESSE

1 pièce(s) jointe(s)

Non, dans un module standard.
17/12/2023, 09h22
sam01

Merci bien. Je vais essayer ça.
17/12/2023, 09h57
E KERGRESSE

Il n'est peut-être pas utile d'avoir toutes les colonnes intermédiaires, vous pourriez ne garder que le total.

Bonjour

une solution par formule avec LET et FRACTIONNER.TEXTE (version récente d'Excel) avec A2 la cellule contenant le texte à convertir
Code:

1 2 3 4 5 6 7 8 =LET( ago;SUBSTITUE(A2;" ago";""); s;SUBSTITUE(ago;"s";""); day;SUBSTITUE(s;" day";"|1440"); hr;SUBSTITUE(day;" hr";"|60"); min;SUBSTITUE(hr;" min";"|1"); tableau;FRACTIONNER.TEXTE(min;"|";" "); SOMME(INDEX(tableau;;1)*INDEX(tableau;;2)))
on supprime les " ago" et les "s' (pour gérer les "1 hr" et "2 hrs")
on remplace les " day" par |1440 le nombre de minutes dans une journée
idem les " hr" par "|60", et les " min" par "|1"

puis FRACTIONNER.TEXTE va découper les | et les " " restant
et la SOMME va faire le produit des colonnes (SOMMEPROD historique)

Stéphane

2 pièce(s) jointe(s)

Citation:

Envoyé par E KERGRESSE

Bonjour,

Soit un tableau structuré "t_Delais" composé de 5 colonnes :

Pièce jointe 647916

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Option Explicit
 
Sub TriDelai()
 
Dim I As Integer, J As Integer
Dim AireDelai As Range
Dim TableDelai As Variant
Dim TempsEnMinutes As Long
 
    Set AireDelai = Range("t_Delais[Temps]")
    Range(AireDelai.Offset(0, 1), AireDelai.Offset(0, 3)).Clear
 
    For I = 1 To AireDelai.Count
        TempsEnMinutes = 0
        TableDelai = Split(AireDelai(I), " ")
        If UBound(TableDelai) > 0 Then
           For J = LBound(TableDelai) To UBound(TableDelai)
               If InStr(1, TableDelai(J), "days", vbTextCompare) > 0 Then
                  AireDelai(I).Offset(0, 1) = TableDelai(J - 1)
                  TempsEnMinutes = TableDelai(J - 1) * 24 * 60
               End If
 
               If InStr(1, TableDelai(J), "hrs", vbTextCompare) > 0 Then
                  AireDelai(I).Offset(0, 2) = TableDelai(J - 1)
                  TempsEnMinutes = TempsEnMinutes + TableDelai(J - 1) * 60
               End If
 
               If InStr(1, TableDelai(J), "mins", vbTextCompare) > 0 Then
                  AireDelai(I).Offset(0, 3) = TableDelai(J - 1)
                  TempsEnMinutes = TempsEnMinutes + TableDelai(J - 1)
               End If
 
                AireDelai(I).Offset(0, 4) = TempsEnMinutes
 
           Next J
        Else
 
        End If
 
    Next I
 
    With Sheets("Feuil1").ListObjects("t_Delais")
         .Sort.SortFields.Clear
         .Sort.SortFields.Add2 Key:=Range("t_Delais[Total]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
 
    Set AireDelai = Nothing
 
End Sub

Bonlour,
j'ai cette erreur (voir les pièces jointes)Pièce jointe 648539 Pièce jointe 648540

30/12/2023, 10h33
E KERGRESSE

Bonjour,

Comment s'appelle votre tableau structuré ?
02/01/2024, 21h19
sam01

Ma feuille vous voulez dire ?

Je l'ai appelé t_Delais.
03/01/2024, 07h27
E KERGRESSE

Bonjour,

Non pas la feuille, le tableau structuré.

Vous avez essayé avec le fichier que j'ai mis en ligne ?