Tri sur des dates

**sam01** · 16/12/2023, 12h04

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 :

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

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

**E KERGRESSE** · 16/12/2023, 18h07

Bonjour,

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

Nom : Capture.JPG
Affichages : 210
Taille : 57,3 Ko

Code :

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

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

**sam01** · 17/12/2023, 02h21

Merci. C'est un code vbscript que je mets dans la feuille Excel c'est bien ça?

**E KERGRESSE** · 17/12/2023, 04h11

Non, dans un module standard.

**sam01** · 17/12/2023, 10h22

Merci bien. Je vais essayer ça.

**E KERGRESSE** · 17/12/2023, 10h57

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

**Raccourcix** · 18/12/2023, 12h22

Bonjour

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

Code :

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

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

**sam01** · 30/12/2023, 11h28

Envoyé par E KERGRESSE

Bonjour,

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

Nom : Capture.JPG
Affichages : 210
Taille : 57,3 Ko

Code :

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

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