Discussion :

[Pierre67]

Bonjour à tous,

j'ai cherché mais pas trouvé peut-être mal formulé ma requète
Ma question est la suivante : dans un userform (excel 2003) j'ai crée une liste déroulante dont je récupère les données d'une feuille dont les valeurs sont des heures 00:00 - 00:30 - 01:00 .......... mais dans mon USF elles apparaissent sous form décimale
Comment procéder pour qu'elles restent au format heures ?
merci à vous

[jojo86]

Met nous ton fichier en ligne !

[ESVBA]

bonjour,

c'est normal puisque que les dates sont des nombres décimaux qu'Excel formate à l'affichage.

première solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox.Additem CDate(ActiveCell.Value)

mais la représentation se fera avec les secondes dont "01:30:00"

Seconde solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox.Additem Format(ActiveCell.Value, "hh:mm")

avec une convertion avec "CDate()" pour faire des calculs par la suite.

ESVBA

[ESVBA]

Pièce jointe 55681voir le fichier :

[Pierre67]

Merci pour vos réponse.
ci-joint, mon fichier.
Je démarre sa conception. Dans la liste déroulante c'est une heure. quand je clique sur une valeur elle devient décimale

[mercatog]

enlève le USF!B1:B49 de la propriété de ta combobox1
et ajoute ce code (de ESVBA) dans l'évènement Initialize de ton userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 49
    Me.ComboBox1.AddItem Format(Sheets("USF").Range("B" & i).Value, "hh:mm")
Next
End Sub

[Pierre67]

En lisant la routine de ESVBA, j'ai vu que le VBA pouvait être simple quand on est doué.
Vous aurez vu dans mon fichier un essai de macro de MFC d'où l'utilité de la présentation des heures.
merci à vous tous.
J'aime venir vous lire