Alors en fait voila exactement ce que je veux faire:
je demande a l'utilisateur de saisir dans un textbox des heures et minutes exemple 35:24
Je click sur un bouton qui recupere cette valeur et la place en C5
De la, j'ai en C6 une valeur fixe : 4:06
En C7 une autre valeur fixe : 3:30
en C8 une formule qui cherche combien de fois il y a C5/C6 par la formule =arrondi.inf(C5/C6;0)
en C9 une formule qui cherche combien de fois il y a C5/C7 par la formule =arrondi.inf(C5/C7;0)
En D8 je calcul les heures restantes en faisant =C5-(C8*C6)
En D9 je calcul les heures restantes en faisant =C5=(C8*C7)
de la j'ai un deuxieme userform qui s'ouvre et devrait me placer dans deux labels les texte suivants:
"Il y a "& C8 &" fois 4:06 et il reste en heure " & D8
"Il y a "& C9 &" fois 3:30 et il reste en heure " & D9
Voici mon code mais ca ne fonctionne pas.
Private Sub CommandButton2_Click()
'Je recupere la valeur de mon textbox que je place en C5'
Range("C5").Value = TB_NBH 'A ce niveau il ne se met pas en [HH]:MM'
'Je declare mes variables qui stockeront mes entiers aroondi.inf'
Dim nbMat, nbAp As Integer
'Je declare mes variables qui stockeront les heures restantes calculées'
Dim heureMat, heureAp As Date
'je recupere le calcul en C8 et C9'
nbMat = Range("c8").Value
nbAp = Range("c9").Value
'je recupere le calcul des heures restantes en D8 et D9'
heureMat = Range("D8").Value
heureAp = Range("D9").Value
'Je converti mes heures au format [HH]:MM'
heureMat = Format(heureMat, "[H]:MM")
heureAp = Format(heureAp, "[HH]:MM")
'Je test mes valeurs par message box'
MsgBox ("Voici le resultat en matiné " & nbMat & " et il restera en heure " & heureMat)
End Sub
Si vous avez un peu d'aide cr la je seche un peu
Merci D'avance
eriiic a écrit :
Bonsoir,
utilise Format :
...=format(ta_valeur, "[hh]:mm")
eric