Problème de format Heure:mn entre Cellule et valeur Listbox

[Mapleosaure]

Bonjour à tous
Help !!!!!
J'ai deux cellules dans ma BD dont le format est correct ... exemple 13h30
quand je passe sur mon Userform de recherche, les valeurs de ces deux cellules s'affiche en équivalent numérique… exemple 0,12345.
je souhaiterais pouvoir les afficher a l'identique pour pouvoir intervenir en saisie ou modification.
Mes connaissances sont trop restreintes pour ce cas de figure..
Qui saura me corriger ce défaut ?
Merci par avance

 

[Dranreb]

Bonsoir.

Function TxtHmm(ByVal Hmm As Double) As String
   TxtHmm = Format(Hmm, "h:mm")
   End Function
Function HmmTxt(ByVal Txt As String) As Double
   HmmTxt = TimeValue(Txt)
   End Function
Sub Test()
   MsgBox TxtHmm(HmmTxt("2:34"))
   End Sub

 

[Dranreb]

Bon alors avec un test de démo un peu moins … un peu plus … enfin bref :

Option Explicit
Sub Test()
   Dim S As String, D As Double
   S = TxtHmm(0.5625)
   D = HmmTxt(S)
   MsgBox "TxtHmm(0.5625) = """ & S & """," _
      & vbLf & "HmmTxt(""" & S & """) = " & D & ".", _
       vbInformation, "Test"
   End Sub
Function TxtHmm(ByVal Hmm As Double) As String
   TxtHmm = Format(Hmm, "h:mm")
   End Function
Function HmmTxt(ByVal Txt As String) As Double
   HmmTxt = TimeValue(Txt)
   End Function

Pour alimenter les listes de 2 ComboBox CBxH1 et CBxH2 vous pourriez par exemple faire:
For H = 0 To 47: CBxH1.AddItem TxtHmm(H / 48): Next H
CBxH2.List = CBxH1.List
Pour renvoyer dans une cellule l'heure sélectionné dans la CBx1 il y aurait deux possibilités :
prendre HmmTxt(CBx1.Text) ou mieux CBx1.ListIndex / 48

 

[Mapleosaure]

Bonjour
Merci pour vos réponses.. toutefois, aucun changement dans mon affichage, mais avec en plus quelques blocages. Votre solution ne semble pas adaptée à mon fichier.
Bien cordialement

 

[Dranreb]

Bonjour.
je n'ai guère plongé dans votre programmation, je vous ai seulement indiqué quelles conversions de données étaient nécessaires pour récupérer correctement depuis des cellules, et les y en renvoyer, des valeurs d'heures affichées en textes dans des contrôles d'UserForm. Et, accompagné d'un exemple d'utilisation sous forme d'une Sub Test, je vous ai donné deux Function qu'il suffit d'invoquer, mais l'important ce sont les affectations qu'elles contiennent.

 

[Dranreb]

Cela dit, si vous trouvez que ça ne donne pas le résultat escompté, vous pouvez toujours me joindre la classeur avec ce que vous avez essayé, que je vous dise ce qui ne va pas.

 

[Mapleosaure]

Bonjour et encore merci pour l'attention que vous portez à mon problème...
Je dois vous dire que je ne suis pas un féru d'informatique et que mes "bidouilles" sont plus du racommodage de choses que je trouve sur internet et que j'adapte à mes besoins.
Concernant mon fichier, il serait plus évident pour moi que vous corrigiez l'actuel et me le renvoyez en état de fonctionnement si bien sûr, cela est possible. Ainsi il serait éventuellement dispo librement pour autrui. Il s'agit d'une gestion d'occupation de locaux pour une petite municipalité dont je suis conseiller.
Par ailleurs je lance un appel à ce sujet : si il existe un fichier fini permettant ma demande, plus convivial avec calendrier visuel, je suis preneur.
Bien cordialement

 

[Dranreb]

À bien plus tard alors, si l'assez improbable envie me prend de m'immerger dans cette affaire …

 

[Mapleosaure]

Merci quand même
Cordialement