Résolu XL 2010 VBA Addition format HH :MM :SS

spike29

XLDnaute Nouveau
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
 
Ce fil a été résolu! Aller à la solution…

spike29

XLDnaute Nouveau
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
 

Fichiers joints

JHA

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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+
 

Fichiers joints

job75

XLDnaute Barbatruc
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")
 

Fichiers joints

Dernière édition:

spike29

XLDnaute Nouveau
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

XLDnaute Barbatruc
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. :rolleyes:

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+
 
Dernière édition:

spike29

XLDnaute Nouveau
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

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

spike29

XLDnaute Nouveau
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
;)
 

job75

XLDnaute Barbatruc
@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.
 
Dernière édition:

_Thierry

XLDnaute Barbatruc
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas