Distinguer midi et minuit Excel

Bonjour,

J'ai voulu rentrer un plage d'heures sur Excel et m'en servir pour le menu déroulant de ma ComboBox.
J'ai écrit midi dans une cellule comme suit : "12:00"
Sauf que quand je sélectionne "12:00" sur ma ComboBox, il se transforme aussitôt en 00:00 (minuit).
Comment faire ?

Merci pour votre aide précieuse :oops:

Salut.

Ce comportement est étrange. Pourrais-tu donner le code de tous les évènements de la combobox?

bonsoir
est tu sur du formatage de tes cellules?
avec les dates et heures des que tu rentre une valeur (dates ou heure) les cellules prennent automatiquement le formatage

alors si tu a mis avant une heure ou date qui n'est pas au meme format que celui que tu veux mettres tu aura toujours ce defaut

verifie et change pour standard !!!
attention met le format standard APRES AVOIR VIDER LA CELLULE!! sinon ca marche pas
Pièce jointe 389291

Merci pour votre aide !

Pour la ComboBox, j'ai rentré les heures de demi heure en demie heure sur une colonne de mon Excel (A2 à A24) et j'ai tapé ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize() Dim Cel As Range For Each Cel In Range("Feuil2!$A$2:$A$24") ComboBox4.AddItem Format(Cel, "hh:mm") Next ComboBox4.RowSource = "Feuil2!$A$2:$A$24" End Sub   Private Sub ComboBox4_Change() ComboBox4.Value = Format(ComboBox4.Value, "hh:mm") End Sub

---

Pour le format de ma cellule j'avoue ne pas avoir tout saisi... j'ai tapé une heure dans une cellule en format "standard" et elle est passée automatiquement au format personnalisé "hh:mm"

C'est un peu déconcertant tout cela :?

Merci à vous !!!

re
oui tout ce qui est date c'est assez deconcertant je te l'accorde

Citation:

---

Pour la ComboBox, j'ai rentré les heures de demi heure en demie heure sur une colonne de mon Excel (A2 à A24) et j'ai tapé ça :

---

autrement dis tu vas de 1 a 12 heure dans ta combo c'est ca ?

prend un fichier vierge
met lui un userform avec une combobx
et met ca dans le module userform
et enfin teste ta combobox

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox1_Change() Cells(1, 1) = ComboBox1.Value End Sub Private Sub UserForm_Activate() Dim x x = CDate("00:30") For i = 1 To 23: x = x + 0.020834: ComboBox1.AddItem Left(x, 5): Next End Sub

---

;)

Bonjour
Je ne comprends déjà pas ce qui conduit à ce double emploi :

Code:

---

1 2 3

For Each Cel In Range("Feuil2!$A$2:$A$24") ComboBox4.AddItem Format(Cel, "hh:mm") Next

---

et

Code:

---

ComboBox4.RowSource = "Feuil2!$A$2:$A$24"

---

Lequel des deux gardes-tu ? -->> nous traiterons le reste ensuite

Un grand merci à vous ! Patricktoulon, ton code marche à merveille !! C'est génial !! :D
Du coup unparia plus besoin d'utiliser les lignes dont tu parles.

Merci beaucoup !

Vous êtes trop forts !
:P