c'est une blagueMar/15/2023 13:46:13 +01:00
=DATE(STXT($A4;8;4);EQUIV(GAUCHE(A4;CHERCHE("/";A4;1)-1);{"Jan";"Feb";"Mar";"Avr";"Mai";"jun";"Jul";"Aou";"Sep";"Oct";"Nov";"dec"};0);STXT($A4;5;2))+CNUM(DROITE(A4;9))
Ceci est-il ce qu'une cellule affiche ou ce qu'elle contient ?Mar/15/2023 13:46:13 +01:00 Mar/16/2023 17:50:22 +01:00
J'ai comme un doute pour "Avr" et "Mai".Code:=DATE(STXT($A4;8;4);EQUIV(GAUCHE(A4;CHERCHE("/";A4;1)-1);{"Jan";"Feb";"Mar";"Avr";"Mai";"jun";"Jul";"Aou";"Sep";"Oct";"Nov";"dec"};0);STXT($A4;5;2))+CNUM(DROITE(A4;9))
=DATE(STXT($A4;8;4);EQUIV(GAUCHE(A4;CHERCHE("/";A4;1)-1);{"Jan";"Feb";"Mar";"Apr";"May";"jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"};0);STXT($A4;5;2))+CNUM(DROITE(A4;9))
{"Jan";"Fev";"Mar";"Avr";"Mai";"juin";"Juil";"Aou";"Sep";"Oct";"Nov";"Dec"}
a mon avis c'est du string importéMar/15/2023 13:46:13 +01:00 Mar/16/2023 17:50:22 +01:00
Function DuréeDiFf(cel1 As String, cel2 As String)
Dim M, T1, T2, H1 As Date, H2 As Date
M = Split("Janv,Feb,Mar,Apr,May,Jun,Jul,Aou,Sep,Oct,Nov,Dec", ",") 'array à adapter
T1 = Split(Trim(cel1), "/")
T2 = Split(Trim(cel2), "/")
T1(0) = Application.Match(T1(0), M, 0)
T2(0) = Application.Match(T2(0), M, 0)
H1 = Split(cel1, "+")(1)
H2 = Split(cel2, "+")(1)
T1 = (CDate(Format(Split(Join(T1, "/"), "+")(0), "dd/mm/yyyy hh:mm:ss"))) + TimeValue(H1)
T2 = (CDate(Format(Split(Join(T2, "/"), "+")(0), "dd/mm/yyyy hh:mm:ss"))) + TimeValue(H1)
DuréeDiFf = Application.Text((T2 - T1), "[hh] "" H ""mm"" mn ""ss"" sec""") '"[hh]:mm:ss"
End Function
Sub test()
MsgBox DuréeDiFf([b3], [b4])
End Sub
Toutaféa mon avis c'est du string importé