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

Dranreb

XLDnaute Barbatruc

• 10 Juin 2020

• #2

Bonsoir.

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juin 2020

• #3

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

VB:

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

 

Dernière édition: 10 Juin 2020

Vote positif 0 Vote négatif

M

Mapleosaure

XLDnaute Nouveau

• 10 Juin 2020

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juin 2020

• #5

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juin 2020

• #6

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.

 

Vote positif 0 Vote négatif

M

Mapleosaure

XLDnaute Nouveau

• 10 Juin 2020

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juin 2020

• #8

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

 

Vote positif 0 Vote négatif

M

Mapleosaure

XLDnaute Nouveau

• 10 Juin 2020

• #9

Merci quand même
Cordialement

 

Vote positif 0 Vote négatif