XL 2016 Soustraction de format heure avec résultat négatif VBA

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #2

Bonsoir Yabon,
Dans XL on peut gérer des calculs d'heures négatives en cochant dans Options avancées Utiliser le calendrier depuis 1904.
Mais attention quand il s'agit de dates, cela peut poser problème.

Programmation VBA :1904 valeurs de date pour les heures négatives

Programmation VBA :1904 valeurs de date pour les heures négatives

www.excelcorpo.com

 

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #3

Bonjour sylvanu, merci pour ta réponse.
Mon fichier est déjà en calendrier 1904.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #4

Petit avancement.
J'ai fait un petit bout de code pour capter les valeurs reçues, j'ai appelé les variables par leur nom de cellules, plus simples à lire. On obtient :

Certaines cellules sont des nombres, mais certaines cellules sont des chaines de caractères, en particulier W5,L5,Q5,S5. Donc les calculs ne peuvent pas marcher. Reste à trouver pourquoi, et le résoudre.

En fait, tout ce qui vient des userforms sont des chaines de caractères, non des nombres.
Il faut donc transformer "5:35" en 5:35.

 

Dernière édition: 13 Octobre 2020

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #5

Oui c'est ce que je ne comprends pas. J'ai pourtant intégrer dans mon code le changement de format de chaque cellule avant le calcul :-/

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #6

Oui mais comme le type est chaine, un changement de format ne change rien.
Si on a Chaine="5:12" alors il faut faire Heure=5/24+12/1440.
Il faut splitter la chaine avec le séparateur ":"

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2020

• #7

bonsoir
en vba pour le calcul de différence d'heure il y a application.text qui gère très bien sans faire le cumul
en addition
par exemple selon toi quel serait le résultat souhaité pour ceci

heure1 = CDate("01:28:00")
heure2 = CDate("08:54:12")
msgbox heure1-heure2

 

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #8

Donc c'est a ce moment la que tu me perds :-/
J'ai résisté quand même

 

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #9

patricktoulon à dit:

bonsoir
en vba pour le calcul de différence d'heure il y a application.text qui gère très bien sans faire le cumul
en addition
par exemple selon toi quel serait le résultat souhaité pour ceci

heure1 = CDate("01:28:00")
heure2 = CDate("08:54:12")
msgbox heure1-heure2

Cliquez pour agrandir...

- 07:26:12 ?
De tête comme ça a cette heure là c'est compliqué

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2020

• #10

et ben alors

VB:

'soustraction
    heure1 = CDate("01:28:00")
    heure2 = CDate("08:54:12")
    If heure1 < heure2 Then temp = heure1: heure1 = heure2: heure2 = temp
    TH = heure1 - heure2

    'formatage avec la fonction ""Text"" de application
    MsgBox "soustraction  des heures : " & Application.text(TH, "[hh]:mm:ss")

et c'est pareil pour additionner on cumule au dela de 24:00:00 et sans inverser

VB:

'addition
    heure1 = CDate("23:17:08")
    heure2 = CDate("01:34:27")
    TH = heure1 + heure2

    'formatage avec la fonction ""Text"" de application
    MsgBox "cumul des heures : " & 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 "temps résultant :" & Format(TH, "hh:mm:ss")

 

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #11

patricktoulon à dit:

et ben alors

VB:

'soustraction
    heure1 = CDate("01:28:00")
    heure2 = CDate("08:54:12")
    If heure1 < heure2 Then temp = heure1: heure1 = heure2: heure2 = temp
    TH = heure1 - heure2

    'formatage avec la fonction ""Text"" de application
    MsgBox "soustraction  des heures : " & Application.text(TH, "[hh]:mm:ss")

Cliquez pour agrandir...

Waouu me voila perdu une deuxième fois en 10 minutes
Si j'essaie de comprendre :
1/("01:28:00") et ("08:54:12") sont à remplacer par mes valeurs sources? Feuil1.cells(X,X).value?
2/ je ne comprends pas comment diriger le résultat vers une cellule.
Est ce comme ça? Feuil1.cells(X,X).Application.text(TH, "[hh]:mm:ss")

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2020

• #12

ben oui c'est comme ça tu vois perdu que dans ta tete tu l'es

 

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #13

Ca me met une erreur de syntaxe pourtant sur la dernière ligne

VB:

    heure1 = CDate(Feuil1.Cells(5, 23))
    heure2 = CDate(Feuil1.Cells(5, 16))
    If heure1 < heure2 Then temp = heure1: heure1 = heure2: heure2 = temp
    TH = heure1 - heure2

   Feuil1.Cells(5, 3).Application.Text(TH, "[hh]:mm:ss")

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #14

Bonjour Yabon, Patrick,
Une autre solution, c'est, une fois posé les textbox en ligne 5 de lancer une conversion sur toute la ligne, avec :

VB:

Sub Convertir()
For C = 1 To 38
    If Sheets("SENS IMPAIR").Cells(5, C) Like "*:*" Then
        Sheets("SENS IMPAIR").Cells(5, C) = CDate(Sheets("SENS IMPAIR").Cells(5, C))
    End If
Next C
End Sub

De cette façon tous les chaines comportant ":" seront transformées en heures.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2020

• #15

oh! non de dieu!!
Feuil1.Cells(5, 3).value =Application.Text(TH, "[hh]:mm:ss")

 

Vote positif 0 Vote négatif