saisie heure et tranfert

[jcf6464]

Bonsoir le forum,

voilà mon problème après avoir rechercher sur le net,
j'ai un userform pour saisir des heures dans la feuille (SaisieVols) heures de décollage (textBox4) et heure d’atterrissage (textBox5) + une (textBox6) pour le NBR heures faite

je voudrais s'il vous plaie que le résultat soit afficher dans le textbox6 en dynamique et en validant la fiche cela va la feuille (SaisieVols) en colonne L,
car quand je fait une saisie manuelle dans la col L cela m'affiche 8.33333 dans l'userform

merci à vous tous pour l'aide que vous nous portez

a+ jcf64

 

[Modeste geedee]

Re : saisie heure et tranfert

Bonsour®
Private Sub Cmd_ValidVols_Click()

 .Range("L" & Ligne) = TimeValue(Me.TextBox5.Value) - TimeValue(Me.TextBox4.Value)  '.......................................Nbr d'heure de  vol
 .Range("L" & Ligne).NumberFormat="hh:mm:ss"

Private Sub lst_Vols_Click()

 Me.TextBox6 = .Range("L" & Ligne).Text

supprimer Private Sub TextBox4_AfterUpdate()
ajouter :

Private Sub TextBox5_AfterUpdate()   
    Me.TextBox6.Value = Format(TimeValue(Me.TextBox5.Value) - TimeValue(Me.TextBox4.Value), "hh:mm:ss")
End Sub

Private Sub TextBox4_AfterUpdate()   
    Me.TextBox6.Value = Format(TimeValue(Me.TextBox5.Value) - TimeValue(Me.TextBox4.Value), "hh:mm:ss")
End Sub

problèmes potentiels si vols au-delà de minuit !!!

 

[jcf6464]

Re : saisie heure et tranfert

Bonjour Modeste

merci de ta réponse

pas de vols après minuit du moins pas en France c'est du planeur,

cela marche très bien

pourrais ton que le : soit automatique en saisie

bonne journée jcf64