diviser des heures en VBA

[dev_co]

Bonjour
J'aimerai savoir s'il est possible en VBA de diviser des heures je n'ai pas trouvé mes exemples sur des sites
j'explique :
J'ai un temps T=40:00 qui sera issu d'une cellule ; ensuite je voudrai diviser par 16:00
Et là je ne sais pas mettre T/16:00 ou écrire D=16:00 , "16:00" ..ou etc ?
pour les DIM ce sont des Double ou variante ou ???
j'avais l'idée par Modulo 16 ... mais je ne sais pas du tout
Merci

 

[Dranreb]

Bonjour.
Oui, vous pouvez diviser une durée par 16.
il faut seulement savoir deux chose:
1) — Seul le format de la cellule est responsable de ce qu'elle y apparait hh:mm
2) — Elle est en l'unité de temps d'Excel qui est le jour.
Peut être vous faut il en fait la multiplier par 1.5 si ce que vous vouler trouver c'est le nombre de paquets de 16 heures qu'elle contient.

Le type de donnée Double convient.

 

[dev_co]

Merci
Concrétement cela s'écrit comment ?

 

[Dranreb]

Normalement.
NbGrp16h = ValeurHoraire * 1.5

 

[dev_co]

Donc il faut qu'à chaque fois je calcule en décimale la correspondance de Temps ? 16:00= 1.5
esi c'est 13:00 aie !! car ce temps risque de changer
on ne peux pas faire X= T/16:00 ?

 

[Dranreb]

Non, faites X = T * 1.5
16:00 c'est 16 / 24
Si vous voulez diviser par un nombre d'heures variable NbH, multipliez la aussi par 24
X = T * 24 / NbH
Si votre nombre d'heures est entier vous pouvez aussi utiliser X = T / TimeSerial(NbH, 0, 0)
Si vous l'avez en String de forme hh:mm vous pouvez le convertir en durée en jours par TimeValue

 

[dev_co]

Je joins un fichier de départ , principalement pour le cas ou je veux mettre en Dur ! le temps
et l'utiliser dans la division exemple avec les 2 cas

 

[Modeste geedee]

Bonsour®

Merci
Concrétement cela s'écrit comment ?

16:00 c'est 2/3 de jour

comme à l'école :​

combien de fois 2/3 de jour dans T
=T/(2/3)
ne pas formater le résultat en durée !!!
le résultat est un nombre décimal

 

[dev_co]

Bon , mais si c'est 13:00h ou autre ?
ex : j'ai 40:00h et X fait 07:00 par jour ; Y fait 09:00
Comment récupérer le résultat ?
X > 5j et 05:00
Y > 4j et 04:00
Je sais récupérer 5j ou 4 ... en faisant int( division) mais ensuite le reste en Heure (05:00)
je pense que si je fais afficher 0.66666 dans une cellule en hh:mm il me mettra le bon format ?

 

[Modeste geedee]

Bonsour®

Je joins un fichier de départ , principalement pour le cas ou je veux mettre en Dur ! le temps
et l'utiliser dans la division exemple avec les 2 cas

préférer un arrondi à la 6eme décimale :
=ENT($A4/B$1) &" fois Href+ "&TEXTE(MOD($A4;ARRONDI(B$1;6));"hh:mm")

 

[dev_co]

Ok mais dans mon fichier de départ ... c'est déjà du VBA que je voulais

J'aimerai savoir s'il est possible en VBA de diviser des heures

donc j'avance un peu , mais le résultat est faux , la Sub me donne 2 J et 16:00 au lieu de 10:00
Pourrais tu STP me corriger le VBA ?

 

[Dranreb]

Comme ça on obtient 10:00 :

Private Sub calc()
Dim DuréeDon As Double, DuréeJourn As Double, Jours As Double
DuréeDon = Cells(4, 1).Value
DuréeJourn = Cells(1, 2).Value
Jours = DuréeDon / DuréeJourn
Cells(4, 2).Value = Int(Jours)
Cells(4, 3).Value = (Jours - Int(Jours)) * DuréeJourn
End Sub

 

[Modeste geedee]

Bonsour®

Ok mais dans mon fichier de départ ... c'est déjà du VBA que je voulais

donc j'avance un peu , mais le résultat est faux , la Sub me donne 2 J et 16:00 au lieu de 10:00
Pourrais tu STP me corriger le VBA ?

Sub calc()
    heure1 = Cells(4, 1)
    heure2 = Cells(1, 2)
    Cells(4, 2) = Int(heure1 / heure2)
    Cells(4, 3) = Cells(4, 1) - Cells(4, 2) * heure2
End Sub