Discussion :

[ajnitolp]

Bonjour à tous,

Je travaille actuellement sur des extract que je dois manipuler afin de sortir des stats.

Or petit problème : les durées extraites sortent sur un format qui, je pense, ne sont pas manipulables avec excel sans un post traitement de type formule ou macro.

Ces extracts sont du type suivant :
3d 18h 22m
4h 53m
22h 56m
1d 1h 38m


Pouvez vous m'aider à trouver un moyen de les sommer par une formule ou une macro ?

Merci d'avance à tous,

Antoine

PS : je fais quelques macro simples mais là, celà dépasse mes compétences !

[mat955]

Bonsoir ajnitolp,

Je te propose cela, qui te permet de récupére les jours, heures, et minutes, dans 3 variables.
Après, à toi de manipuler ces variables comme tu le sens pour créer ton propre format.
Cet exemple fonctionne si tu mets une de tes valeurs en cellule A1.

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
Sub JoursHeuresMinutes()
 
Dim Séparation
Dim NbElements As Integer
Dim i As Integer
Dim Jours as Integer
Dim Heures as Integer
Dim Minutes as Integer
 
Séparation = Split(Range("A1").Value, " ")
NbElements = UBound(Séparation)
 
For i = 0 To NbElements
    If Jours = "" And Right(Séparation(i), 1) = "d" Then
        Jours = Left(Séparation(i), Len(Séparation(i)) - 1)
    ElseIf Heures = "" And Right(Séparation(i), 1) = "h" Then
        Heures = Left(Séparation(i), Len(Séparation(i)) - 1)
    ElseIf Minutes = "" And Right(Séparation(i), 1) = "m" Then
        Minutes = Left(Séparation(i), Len(Séparation(i)) - 1)
    End If
Next i
 
MsgBox Jours & " " & Heures & " " & Minutes
 
End Sub

[unparia]

Bonjour
Ce que tu demandes nécessite l'intervention de code VBA.
Je te propose ceci (exemple sur la cellule A1)

Code :

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

1
2
3
4
5
6
7
8
9
10
titi = Split(Range("A1").Text, " ")
For i = 0 To UBound(titi)
  If titi(i) Like "#d" And i = 0 Then
    titi(i + 1) = Val(titi(i)) * 24 + Val(titi(i + 1))
    titi(i) = "@"
  Else
    titi(i) = CStr(Val(titi(i)))
  End If
Next
Range("A1").Value = Replace(Join(titi, ":"), "@:", "'")

Qui transforme en heures et minutes, le tout mis en format texte
Si cela te convient : traiter ainsi en boucle les cellules de la colonne concernée.

[unparia]

Tu auras remarqué que la solution implique l'utilisation de VBA (autre section de ce forum).
Tu as donc reçu des réponses "adaptées", mais non correspondant forcément à ton besoin, qui est probablement plus technique, à savoir : obtenir des valeurs vraiment exploitables par Excel et/ou son VBA (calculs, etc ...)
Des solutions plus "précises" et "techniques" existent, mais je pars personnellement du principe selon lequel les donner ici (section Excel) ferait qu'elles y seraient perdues puisque d'autres les chercheraient ailleurs (section VBA).
A toi, donc, de voir si tu dois ou non présenter ce problème dans la section VBA de ce forum.