Comment documenter 12:00 dans textbox

Bonjour à tous,
Je rencontre un petit pb d'affichage d'heure dans un TextBox. Pourriez-vous m'aider ?
J'ai fais un petit planning de salles dans Excel ou je documente les créneaux horaires via des TextBox.
Pour la saisie des heures je choisis dans une liste ou j' incrémente par 1/2 heures avec le format HH:MM.
1er pb : Lorsque je sélectionne 12:00 , il s'affiche 00.05 dans le TextBox . J'ai noté dans le code du TextBox

Code:

---

1 2 3 4

Private Sub TextBox1_Change() TextBox1.Value = Format(CDate(TextBox1.Value), "hh:mm") End sub

---

J'ai réussi à contourner ce pb en mettant '12:00 dans la liste ce qui fait bien apparaitre 12:00 dans le TextBox quand je sélectionne l'heure.
2ème pb : Lorsque je ferme ce TextBox et que je le rappelle 00:05 s'affiche à nouveau.
J'ai cherché dans certains forum mais sans succès.
Auriez-vous une solution pour que 12:00 s'affiche systématiquemnt . (je fais ensuite des test pour que les créneaux ne se chevauchent pas)
Merci par avance
MichaSarah

Bonjour,
Je viens de faire un test rapide avec un ComboBox et deux TextBox
Mes heures sont placées en Colonne B & C à partir de la deuxième ligne.
J'ai essayé avec 2 formats différents et je ne rencontre pas de problème particulier mais j'ai enlever la fonction CDATE.
Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Private Sub ComboBox1_Change() With Me .TextBox1 = Format(Range("B" & .ComboBox1.ListIndex + 2), "Long Time") .TextBox2 = Format(Range("C" & .ComboBox1.ListIndex + 2), "hh:mm") End With End Sub Private Sub TextBox1_Change() ' TextBox1.Value = Format(CDate(TextBox1.Value), "hh:mm") TextBox1.Value = Format(TextBox1, "Long Time") TextBox2.Value = Format(TextBox2, "hh:mm") End Sub Private Sub UserForm_Initialize() With Me .ComboBox1.RowSource = "db" End With End Sub

---

Bonjour corona,
J'ai essayé avec ta solution mais sans succès. J'ai changé les formats d'heure, j'ai refais une liste deroulante mais pour le moment celà ne marche pas. Le seul cas ou celà fonctionne c'est en faisant référence à une cellule bien précise.
Je mets en pièce jointe mon fichier.
1°) Pour sélectionner un créneau horaire il faut double cliquer sur une cellule
2°) Enregistrer avant de sortir
3°) Les infos sont sauvegardées dans l'onglet caché ainsi que les listes déroulantes.

Merci


MichaSarah

Bonjour,

dans une copie, teste ceci :
lance la macro suivante, ta feuille 2011(2) étant active :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Pansement() Dim cell Dim pass   For Each cell In Range("AL9:AL35") pass = cell.Text cell.Clear cell.NumberFormat = "@" cell.Value = pass Next cell End Sub

---

cette ligne devient inutile :

Code:

---

'LstDe1.Value = Format(CDate(LstDe1.Value), "hh:mm")

---

ensuite quand tu as besoin de travailler sur l'heure, c'est là que tu utilise Cdate(LstDe1) par exemple

cordialement,

Didier

Bonjour,
Merci à vous.

Salutations
MichaSarah