saisie heure et tranfert

jcf6464 · 4 Novembre 2014

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 · 4 Novembre 2014

Re : saisie heure et tranfert

Bonsour®
Private Sub Cmd_ValidVols_Click()

Code:

 .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()

Code:

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

supprimer Private Sub TextBox4_AfterUpdate()
ajouter :

Code:

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

Code:

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 · 5 Novembre 2014

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

saisie heure et tranfert

jcf6464

XLDnaute Occasionnel

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

jcf6464

XLDnaute Occasionnel

Discussions similaires