Discussion :

[KOUZINE]

Bonjour à tous

Encore besoin de vous car je n'ai pas trouvé de réponse à mon cas :

je possède une combobox (ComboCR2) sur un user form

la liste de données de l'userform est alimentée par une plage de cellules nommée "Hdebut" sur une feuille excel qui contient des heures de 10:00 à 23:30 par paliers de 30 minutes.

J'ai donc ceci pour la liste du combnobox :

Code :

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

1
2
Sub UserForm_Initialize()
ComboCR2.List = Range("Hdebut").Value

Les heures s'affichent en format standard dans ma combobox (10,4166) mais j'ai besoin qu'elle s'affichent au même format que sur la feuille excel (format 00:00 hh:mm)


j'ai testé :

Code :

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

1
2
sub ComboCR2_Change()
ComboCR2.Value = Format(ComboCR2.Value, "hh:mm")

ça ne fonctionne pas bien car l'heure affichée est toujours en décimale et incorrecte, elle se transforme en format heure après sélection mais avec des erreurs (0:00 sur certaines valeurs)

Je suis sure qu'il existe une solution est-ce que vous la connaissez ?
les seules que j'ai trouvées s'adressent aux méthodes "add item"

[gFZT82]

Bonjour,

Pourquoi ne pas faire simplement ?

Code :

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

1
2
3
4
5
Sub UserForm_Initialize()
    For Each Cel In Range("Hdebut")
        ComboCR2.AddItem Format(Cel, "hh:mm")
    Next
End Sub

Cordialement.

[KOUZINE]

Merciii

mais j'ai une erreur sur "cel" : variable non définie...
faut-il définir cel ?

Code :

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

1
2
3
For Each Cel In Range("Hdebut")
        ComboCR2.AddItem Format(Cel, "hh:mm")
    Next

[gFZT82]

Oui dans tous les cas, et encore plus si tu as précisé Option Explicit.

Cordialement.

[KOUZINE]

je suis désolée mais je le déclare en tant que quoi ?
??
Dim cel as ?

[gFZT82]

Dim Cel as range