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