Discussion :

[cnguyen]

Bonjour,

Petite question, pourquoi ce code :

Code :

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

1
2
 
Cells(x,y) = Format(CDate("10:15") + CDate("23:15"), "[h]hh:mm")

Ne me donne pas 33:30

Je pense que j'ai mal utilisé la fonction format.

Peut-êter faut-il mettre [h]:mm mais cela ne m'affiche pas les heures quand je fais cela.

De plus, le format CDate n'accepte pas la cellulle si elle a par exemple ce format :=> CDate("25:15")

Donc est-ce que je suis obliger de passer par du code pour pouvoir faire l'addition des heures dépassant 24 et pouvant avior un format supérieur à 24:00 ou existe-t-il ue solution ?

Merci

[wilfried_42]

Bonjour

Code :

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

Cells(x,y) = CDate("10:15") + CDate("23:15

c'est la cellule qui recoit qui doit avoir ce format : [h]:mm

comme cela ca fonctionne

bonne soirée

[cnguyen]

Merci, par contre, pour l'addition des deux heures, si j'additione :

25:15 et 10:30

Comment faire ? vu que le format CDate ne veut pas d'heure > à 24.

Merci encore

[wilfried_42]

re:

La le format Date ne suffit pas, il faut utiliser le format Double et ecrire une fonction personalisée

Code :

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

1
2
3
4
5
6
7
Sub reduc()
    Range("A2") = fdate24("25:24") + fdate24("39:27")
End Sub
 
Function fdate24(heure As String) As Double
    fdate24 = Val(Left(heure, InStr(heure, ":") - 1)) / 24 + (Val(Mid(heure, InStr(heure, ":") + 1)) / 60 / 24)
End Function

Bon dimanche

[AlainTech]

Si on travaille avec des cellules Excel contenant des heures calculées (et simplement mise en forme par Format), il n'y aura pas de problème d'interprétation.

[cnguyen]

Merci, j'avais deja créé une fonction donc pas de soucis, merci quand même. Je voulais juste voir si on pouvait le faire autrement.

Merci en tout cas, c'est parfait !