Afficher format heure ds textbox

[christian.bedere]

Bonjour,

J'ai une base de données avec les jours de l'année et les horaires de marées correspondantes, .
J'ai à côté de cela un usf ds lequel je saisis la date du jour, j'aimerai pouvoir afficher ds les texboxes à côté de cette date les horaires correspondantes. j'utilise cette formule :

Dim derlgn As Integer
Dim trouve As Variant
Dim maplage As Range
Dim ws As Worksheet
Dim valcherchee As String
Me.Haute = ""
Me.Basse = ""
Set ws = Worksheets("paramètres")
With ws
derlgn = .Range("i65536").End(xlUp).Row
Set maplage = .Range("i2:j" & derlgn)
valcherchee = Me.TextBox1.Value
Set trouve = maplage.Find(What:=valcherchee, LookIn:=xlValues)
If Not trouve Is Nothing Then
Me.Haute.Value = trouve.Offset(0, 1).Value
Me.Basse.Value = trouve.Offset(0, 2).Value
End If
End With

Les heures s'affichent, mais le problème est qu'elles ne sont pas au format hh:mm (12:30 par ex) mais 0,5.... que dois je rajouter pour que cela puisse fonctionner ?
Merci de votre aide

 

[christian.bedere]

Re : Afficher format heure ds textbox

Re-

J'ai trouvé grace à ce forum!
Merci

 

[PascalXLD]

Re : Afficher format heure ds textbox

Bonjour

essaies

Me.Haute.Value = format(trouve.Offset(0, 1).Value,"hh:mm")
Me.Basse.Value = format(trouve.Offset(0, 2).Value,"hh:mm")

Bon courage