VBA Excell -> Addition heures

Version imprimable

10/08/2007, 18h15
cnguyen

VBA Excell -> Addition heures
Bonjour,

Petite question, pourquoi ce code :
Code:

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
11/08/2007, 19h55
wilfried_42

Bonjour

Code:

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
11/08/2007, 21h26
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

re:

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

Code:

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

12/08/2007, 10h49
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.
13/08/2007, 13h18
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 !