XL 2010 VBA Addition format HH :MM :SS

[spike29]

Bonsoir,

Je bloque sur une l'addition d'une durée format hh:mm:ss à une heure également au format hh:mm:ss.
J'ai un programme me permettant de compiler une grille horaires à plat.
Dans ce programme, je souhaite additionner deux cellules au format hh :mm :ss.

Concernant la 1ère cellule il s’agit d’heure classique exemple : format après macro 233030 => format initiale 23 :30 :30

Concernant la 2ème cellule, il s’agit d’une durée que je dois venir ajouter à l’heure de la 1ère cellule ; Exemple : 2.30 pour 2minutes 30 secondes



Mon besoin est de pouvoir venir additionner la durée de la cellule 2 à l’heure de la cellule 1 pour arriver à faire cela : 233030 + 2.30 = 233300

Mon code se trouve ci-dessous, mais malheureusement je reste bloqué en obtenant le résultat suivant : 233030000230
Les 2.30 (2min 30sec) ne viennent pas s'additionner à l'heure 233030.

Mon code ci-dessous :


If Feuil18.Cells(56, j1).Value = "" Then
Feuil17.Cells(memLigne + 13, 3).Value = Format(Feuil18.Cells(57, j1).Value, "hhmmss")
Feuil17.Cells(memLigne + 14, 2).Value = Feuil17.Cells(memLigne + 14, 2).Value + Format(Feuil18.Cells(57, j1).Value, "hhmmss")
Feuil17.Cells(memLigne + 13, 3).Value = Format(Feuil18.Cells(57, j1).Value, "hhmm.ss")
End If


Avant le "End if" j'ajoute une ligne afin qu'il y ait un point entre les minutes et secondes.
Le format de cette durée doit être le suivant :
00:02:00 => doit donner 2
00:02:30 => doit donner 2.30

Merci d'avance pour votre aide.

Je ne vous ai pas joint le fichier car très (trop) volumineux et pas très intuitif.

N'hésitez pas à revenir vers moi si mon explication nécessite des précisons.

Bonne fin de journée

 

[job75]

@spike29 sans fichier joint je ne peux rien faire mais de toute façon je n'irai pas plus loin.

Salut patricktoulon, j'ai édité le post #8 avec Application.Text.

 

[_Thierry]

Bonsoir à tous

Ce qui est marrant avec Patrick, c'est que pratiquement une fois sur quatre (au moins !) quand j'ouvre un fil où il est intervenu, j'y apprends un barbatruc !

Merci
@+Thierry

 

[patricktoulon]

bonsoir Thierry

 

[patricktoulon]

re
@job75
SumTime =Application.Text(v(1) + v(2), "[hh]mmss")

 

[job75]

Oui c'est plus simple je corrige mon post #8.

 

[patricktoulon]

re
ça supprime surtout une action vba sur string qui sont en général plus lourdes que tout autres action vba

 

[job75]

Du coup au lieu de la solution de mon post #10 utilisez simplement :

Feuil17.Cells(memLigne + 12, 3) = Application.Text(Feuil18.Cells(57, mem1), "[m].ss")

avec la cellule de destination au format Texte.

 

[patricktoulon]

tu a vu elle est magique !!!

 

[job75]

Oui et c'est surtout la 1ère fois que je cumule les minutes > 59 avec [m].

 

[patricktoulon]

oui ca cumule EN ce qui est déterminé dans les crochets

Sub test()

MsgBox Application.Text(TimeValue("01:03:00") - TimeValue("01:01:00"), "[ss]")

MsgBox Application.Text(TimeValue("01:00:00"), "[ss]"" secondes dans 1 heure""")

End Sub

 

[dysorthographie]

bonjour,
perso j'ai rien compris!

 format(cdate(format(233030,"00:00:00")) +cdate(format(replace( 2.30*100,".",""),"00:00:00")),"hhmmss")

 

[patricktoulon]

re
oui robert
en fait tu additionne 2 numériques et non deux date
avec app.text on saute des étapes de formatage

en gros on peut faire ce qui est possible de faire dans les cellules

 

[spike29]

Bonjour à tous et encore merci pour cet échange très instructif vous êtes au top !
Merci à toi notamment JOB75 j'ai utilisé la solution de ton poste 23 et sa fonctionne parfaitement.
Un grand merci à tous !
Bonne fin de journée