Format d'affichage d'heure

[GGPS58]

Bonjour à tous,

J'ai dans un userform une combobox alimentée par des heures (08:00, 09:00 jusqu'à 19:00). Les cellules source sont elles aussi au format "hh:mm"
L'affichage de la combobox est paramètré au format "hh:mm"
Quand je selectionne 12:00, c'est 00:00 qui s'affiche.
Pour toutes les autres heures c'est OK.

Y aurait-il quelque chose que je ne ferais pas bien ?

D'avance merci de vos conseils.

 

[tototiti2008]

Re : Format d'affichage d'heure

Bonjour GGPS58,

L'affichage de la combobox est paramètré au format "hh:mm"

Comment tu paramètres l'affichage d'une combobox ?
avec la fonction Format ?

 

[GGPS58]

Re : Format d'affichage d'heure

Avec la commande VBA ci-dessous :

Private Sub ComboBox2_Change()
ComboBox2.Value = Format(ComboBox2.Value, "hh:mm")
End Sub

 

[Pierrot93]

Re : Format d'affichage d'heure

Bonjour ggps, re Toto

pas ce problème chez moi, me renverrais plutôt "00:05" .... mets peut être un petit fichier en pièce jointe, nous permettant de voir le modèle de donnée traité....

 

[Pierrot93]

Re : Format d'affichage d'heure

Re

essaye peut peut être avec la fonction "val" couplée avec une variable booléenne :

Option Explicit
Public b As Boolean
Private Sub ComboBox1_Change()
If b Then Exit Sub
b = True
ComboBox2.Value = Format(Val(ComboBox2.Value), "hh:mm")
b = False
End Sub

 

[Pierrot93]

Re : Format d'affichage d'heure

Re

ou bien mettre le code dans l'événement click :

Private Sub ComboBox1_Click()
ComboBox2.Value = Format(Val(ComboBox2.Value), "hh:mm")
End Sub

 

[GGPS58]

Re : Format d'affichage d'heure

Merci de ces conseils, malheureusement l'affichage devient 00:00 quelle que soit le choix ...
Je continue mes recherches.

J'essaye de vous faire un fichier simplifié et je le met en ligne dés que possible ...

 

[tototiti2008]

Re : Format d'affichage d'heure

Re,

Pas de soucis chez moi non plus, Format(X,"hh:mm") donne bien 12:00
Ca dépend peut-être des paramètres régionaux ?

et si tu essaye Format(X,"Short Time") , ça donne quoi ?

 

[GGPS58]

Re : Format d'affichage d'heure

Pareil ... toujours 00:00 au lieu de 12:00 même avec Format(X,"Short Time")
J'ai également regardé les paramètre régionaux tout à l'air OK.
J'ai reformater la plage qui me sert à alimenter la combobox; toujours le même soucis.
Ce soir j'essaierais sur une autre machine.

 

[tototiti2008]

Re : Format d'affichage d'heure

Re,

et dans une cellule, si tu tapes 12:00, ça affiche quoi ?

 

[Pierrot93]

Re : Format d'affichage d'heure

Re,

perso serais curieux de voir la valeur de tes cellules... un petit fichier permettrait sans doute de gagner du temps...

 

[GGPS58]

Re : Format d'affichage d'heure

Re bonjour à tous,
Ci-joint un fichier explicatif de mon soucis de format d'heure.

 

[Pierrot93]

Re : Format d'affichage d'heure

Re,

le code donné à 13h25 fonctionne dans ton fichier :

Option Explicit
Public b As Boolean
Private Sub ComboBox2_Change()
If b Then Exit Sub
b = True
ComboBox2.Value = Format(Val(ComboBox2.Value), "hh:mm")
b = False
End Sub

A noter il fallait changer le nom du combo...

 

[GGPS58]

Re : Format d'affichage d'heure

Ben j'ai bien testé ce code, mais chez moi cela ne fonctionne pas du tout, toutes les valeurs basculent à "00:00".
J'avais bien évidemment changé les noms des combo pour que cela colle avec mon fichier.
...
Je viens de retester sur mon fichier exemple simplifié, je confirme que cela ne fonctionne pas chez moi.
Je vais essayer de trouver une autre façon de faire ...
MErci quand même.

 

[tototiti2008]

Re : Format d'affichage d'heure

Re,

en effet, chez moi Val ne fonctionne pas non plus...

sinon en imposant un format Texte à la plage source de la combobox :