Combobox format hh:mm HEURE

Bonjour à tous

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

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:

---

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:

---

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 ? :mrgreen:
les seules que j'ai trouvées s'adressent aux méthodes "add item"

Bonjour,

Pourquoi ne pas faire simplement ?

Code:

---

1 2 3 4 5

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

---

Cordialement.

Merciii :ccool:

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

Code:

---

1 2 3

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

---

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

Cordialement.

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

Dim Cel as range

merci ça marche très bien :)
est-ce que tu peux l'expliquer pour quoi cel as range ?
ça veut dire que cel est une "range" dans hdebut qui est déjà une "range" ?
:aie:
je vais surement comprendre avec le temps mais MERCI MILLE FOIS A TOI :ccool::ccool::ccool:

Si je traduis le code, cela donne :
Pour chaque cellule de la plage "Hdebut", ajoute la valeur de cette cellule à la liste de la ComboBox avec le format "hh:mm".

Cordialement.

je précise que ça fonctionne uniquement si j'ajoute :

Code:

---

1 2 3

Private Sub ComboCR2_Change() ComboCR2.Value = Format(ComboCR2.Value, "hh:mm") End Sub

---

voilà bonne soirée à vous

MERCI BEAUCOUP