XL 2010 VBA Addition format HH :MM :SS

spike29 · 7 Juin 2020

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 · 15 Juin 2020

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

VB:

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

avec la cellule de destination au format Texte.

JHA · 8 Juin 2020

Bonjour à tous,

Ci joint la conversion par formule, pas si simple que ça en fait.

JHA

dysorthographie · 8 Juin 2020

Feuil17.Cells(memLigne + 13, 3).Value = Format(Feuil18.Cells(57, j1).Value, "hhmmss")

Code:

Debug.Print Format("233030", "00:00:00")

spike29 · 8 Juin 2020

Bonjour Merci pour vos réponses respectives.

JHA, ta conversion par formule fonctionne parfaitement et répond au besoin.
Cependant, étant donnée que je doit intégrer cette formule dans mon programme de conversion de grille horaire il me faudrait le code VBA permettant d'arriver au même résultat que toi.

Est-il possible d'intégrer un exemple dans le fichier en PJ?

La macro doit venir modifier les cellule B13 et B14

Merci d'avance pour vos retours

Bonne journée

JHA · 8 Juin 2020

Bonjour à tous,

Moi et les macros cela fait deux, désolé, je ne peux pas t'aider mais patiente un peu, d'autres amis du forum vont regarder ton soucis.

JHA

dysorthographie · 8 Juin 2020

Code:

Feuil17.Cells(memLigne + 13, 3).Value = Format(Feuil18.Cells(57, j1).Value, "00:00:00")

Désolé je pensais répondre à ta question en reprenant l'exemple de ton code! Pas de chance.

job75 · 8 Juin 2020

Bonjour spike29, JHA, dysort...

Voyez le fichier joint et cette fonction VBA :

VB:

Function SumTime(v1, v2) As String
Dim v(1 To 2), n As Byte, s
v(1) = v1: v(2) = v2
For n = 1 To 2
    s = Split(v(n), ".")
    If UBound(s) = 1 Then v(n) = s(0) / 1440 + s(1) / 86400
    If v(n) Like "######" Then v(n) = TimeValue(Format(v(n), "00\:00\:00"))
Next n
SumTime = Replace(Format(v(1) + v(2), "hh:mm:ss"), ":", "")
End Function

Le code est à placer impérativement dans un module standard.

La fonction est utilisée en B3.

A+

job75 · 8 Juin 2020

Si l'on veut afficher des heures égales ou supérieures à 24 heures il faut savoir que le format [hh]:mm:ss n'est pas reconnu en VBA.

Mais ce n'est pas un problème, voyez ce fichier (2) et la fonction modifiée :

VB:

Function SumTime(v1, v2) As String
Dim v(1 To 2), n As Byte, s
v(1) = v1: v(2) = v2
For n = 1 To 2
    s = Split(v(n), ".")
    If UBound(s) = 1 Then v(n) = s(0) / 1440 + s(1) / 86400
    If v(n) Like "######" Then v(n) = TimeValue(Format(v(n), "00\:00\:00"))
Next n
SumTime = Replace(Format(v(1) + v(2), "hh:mm:ss"), ":", "")
If v(1) + v(2) >= 1 Then SumTime = 24 * Int(v(1) + v(2)) + Left(SumTime, 2) & Mid(SumTime, 3) '>= 24 heures
End Function

Edit : fichier (2 bis) avec la solution de patricktoulon des posts #15 et #19 :

VB:

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

spike29 · 15 Juin 2020

Bonjour à tous,

Désolé pour la réponse tardive.
Un grand merci pour votre aide sur le sujet j'ai finalement réussi à plus ou moins me dépatouiller sur le sujet et à réaliser des additions / soustraction.
Cependant je bloque sur un derrnier point, la mise en forme finale :

La cellule que je convertie "Feuil 18 ligne 57" est au format hh:mm:ss
Avec ma formule ci-dessous, les "00:01:30"contenues dans la Feuil18 se transforment en 1.3 dans la Feuil17 alors que je souhaiterai obtenir "1.30"

Comment donc faire apparaître ce "0"?

Je précise que ma formule s'inscrit dans une boucle qui se répercute sur x lignes.

Feuil17.Cells(memLigne + 12, 3).Value = Format(Feuil18.Cells(57, mem1).Value, "hm.ss")

Merci d'avance pour vos retours.

Bonne fin de journée

Cdt,

job75 · 15 Juin 2020

Bonjour spike29,

Vous avez pris votre temps pour répondre, vous pouviez en prendre un peu plus pour expliquer ce que vous avez fait avec les solutions proposées. 🙄

Pour votre dernier problème mettez d'abord toutes les cellules de destination au format Texte.

Puis remplacez votre code par :

VB:

With Feuil18.Cells(57, mem1)
    Feuil17.Cells(memLigne + 12, 3) = Int(1440 * .Value) & "." & Format(Second(.Value), "00")
End With

Edit : voyez plutôt la solution plus simple du post #22.

A+

spike29 · 15 Juin 2020

Mince, je croyais avoir glisser ma solution dans ma réponse (d'où l'intérêt de bien se relire...).

Je vous l'a partage avec plaisir => Ma boucle au complet.
Je copie les valeurs dans leurs format d'origine je réalise l'addition et seulement après je viens faire la conversion avec le format hhmmss.

J'ai "bidouillé" mais suis quand même arrivé à mes fins 🙂

For i3 = 0 To 14
If Feuil18.Cells(56, j1).Value = "" Then
Feuil17.Cells(memLigne + i3, 1).Value = Feuil18.Cells(41 + i3, 4).Value
Feuil17.Cells(memLigne + i3, 2).Value = Feuil18.Cells(41 + i3, j1).Value
Feuil17.Cells(memLigne + 14, 1).Value = Feuil18.Cells(60, j1).Value
End If

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

End If

Next i3

Merci pour ta solution JOB75 je regarde et te dis ça (plus vite que la première fois ^^).

Bonne fin de journée

job75 · 15 Juin 2020

Je ne vois pas apparaître dans ces codes la solution du problème posé au post #1.

spike29 · 15 Juin 2020

Si regarde bien.

Mon besoin initial :

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

La durée est en Feuil18 (ex : 00:01:30) et l'heure en Feuil17 (ex : 23:30:45)

La solution est là :

Feuil17.Cells(memLigne + 14, 2).Value = Feuil17.Cells(memLigne + 14, 2).Value + Feuil18.Cells(57, j1).Value

Il faut additionner de manière brut les cellules dans leurs format d'origine et faire la conversation en hhmmss à la fin et ça marche

spike29 · 15 Juin 2020

J'ai testé ton code, top ! J'ai d'abord testé avec "00 à la fin mais pas de changement.
J'avais toujours dans ma colonne Feuil17.Cells(memLigne + 12, 3) une valeur de ce type :
1,3 là ou je cherche à avoir 1,30

J'ai donc ajouté un 3ème "0" et là j'obtiens => 1,03
Feuil17.Cells(memLigne + 12, 3) = Int(1440 * .Value) & "." & Format(Second(.Value), "000")

On approche du but.

Du coup j'ai éssayé de mettre quelque chose comme :
Feuil17.Cells(memLigne + 12, 3) = Int(1440 * .Value) & "." & Format(Third(.Value), "000")

Mais forcément cela aurait été trop simple... ^^

As-tu une piste ?

Code complet ci-dessous :

For i1 = 0 To 13
If Feuil18.Cells(56, j1).Value = "PJV" Then
Feuil17.Cells(memLigne + i1, 1).Value = Feuil18.Cells(41 + i1, 4).Value
Feuil17.Cells(memLigne + i1, 2).NumberFormat = "@"
Feuil17.Cells(memLigne + i1, 2).Value = Feuil18.Cells(41 + i1, j1).Value
End If

If Feuil18.Cells(56, j1).Value = "PJV" Then

Feuil17.Cells(memLigne + 12, 2).Value = Feuil18.Cells(41 + 12, j1).Value - Feuil18.Cells(57, j1).Value

Feuil17.Cells(memLigne + i1, 2).Value = Format(Feuil17.Cells(memLigne + i1, 2).Value, "hhmmss")
Feuil17.Cells(memLigne + 12, 2).Value = Format(Feuil17.Cells(memLigne + 12, 2).Value, "hhmmss")
End If

With Feuil18.Cells(57, j1)
Feuil17.Cells(memLigne + 12, 3) = Int(1440 * .Value) & "." & Format(Second(.Value), "000")
End With

Next i1

Merci d'avance et bonne soirée

patricktoulon · 15 Juin 2020

Bonsoir
juste en passant
@job75

Si l'on veut afficher des heures égales ou supérieures à 24 heures il faut savoir que le format [hh]:mm:ss n'est pas reconnu en VBA.

mais si !!!mais pas avec la fonction format
application.text c'est magique 😉

VB:

Sub text()

    Heure1 = CDate("23:30:00")
    Heure2 = CDate("01:30:00")
    TH = Heure1 + Heure2

    'formatage avec la fonction ""Text"" de application
    MsgBox Application.text(TH, "[hh]:mm:ss")    'les crochets associés a app.text  indiquent que les heures se cumulent au dela de 24
    
    'sans formatage on obtient un  temps
    MsgBox Format(TH, "hh:mm:ss")
End Sub

😉

XL 2010 VBA Addition format HH :MM :SS

spike29

XLDnaute Occasionnel

job75

JHA

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

spike29

XLDnaute Occasionnel

Pièces jointes

JHA

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

spike29

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

spike29

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

spike29

XLDnaute Occasionnel

spike29

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires

XL 2010 VBA Addition format HH :MM :SS

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency