XL 2010 Cohérence calculs heures 0:00 - Excel dernier de la classe ?

[max.lander]

Bonjour à tous,

J'ai une petite question basique abordée visiblement de nombreuse fois sur le forum mais je n'ai pas été en mesure de trouver une solution satisfaisante.

Je suis en train de m'essayer aux calculs d'heures et je me rends compte qu'excel n'est pas un champion en la matière sans fonction personnalisée.

En effet, quand j'essaye en VBA de trouver le nombre d'heure entre par exemple 22:00 et 0:00 le résultat est erroné (en théorie 2h00). cf.fichier en PJ

Est ce que quelqu'un peut me proposer une solution pour arriver avoir des résultats cohérents quelque soit les plages d'heures saisies ?


Merci pour votre aide.

 

[Dranreb]

Bonjour.

Comme ça par exemple :

Private Sub CommandButton1_Click()
Dim J1 As Date, J2 As Date
J1 = CDate(TextBox1.Value)
J2 = CDate(TextBox2.Value)
TextBox3 = Format(J2 - (J2 < J1) - J1, "hh:mm")
End Sub[/CODE=vb]

 

[Jacky67]

.

Bonjour,
Ceci peut-être

J1 = CDate(TextBox2.Value) - CDate(TextBox1.Value) - (CDate(TextBox1.Value) > CDate(TextBox2.Value))

Saluitations
JJ

 

[Dranreb]

Jacky67, pourquoi ajouter 24 jours quand l'heure 2 est < à la 1 ? Un seul ça suffit !

 

[Jacky67]

Jacky67, pourquoi ajouter 24 jours quand l'heure 2 est < à la 1 ? Un seul ça suffit !

Bonjour,
Oui, j'ai corrigé entre temps
J'avais copié la mauvaise ligne de mes tests

Salutations
JJ

 

[Modeste geedee]

Bonsour®

En effet, quand j'essaye en VBA de trouver le nombre d'heure entre par exemple 22:00 et 0:00 le résultat est erroné (en théorie 2h00).

😉

Private Sub CommandButton1_Click()
'-- si Heure Fin < Heure début c'est le lendemain , alors +1 (1="24:00")
TextBox3 = Format(IIf(CDate(TextBox1.Value) > CDate(TextBox2.Value), _
                      1 + CDate(TextBox2.Value) - CDate(TextBox1.Value), _
                      CDate(TextBox2.Value) - CDate(TextBox1.Value)), _
              "hh:mm")
End Sub

 

[max.lander]

Merci à tous pour vos propositions, ça fonctionne au poil.

Pour ma culture pouvez vous m'expliquer comment est interprétée cette instruction dans le code de Dranreb.

 (J2 < J1)

Je suppose qu'elle doit retourner vrai ou faux mais je ne vois comme le calcul s'effectue par la suite

 

[Dranreb]

Alors… quand elle retourne True, cette valeur Boolean, composée uniquement de bits à 1, est considérée telle qu'elle comme un entier, valant donc -1. On le soustrait donc pour que ça ajoute 1.

 

[max.lander]

Merci Dranreb !
Heureusement que j'ai posé la question j étais loin du compte!