Discussion :

[NonoSpaceRider]

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

[Pierre Fauconnier]

Salut.

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

[patricktoulon]

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

[NonoSpaceRider]

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 :

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

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 !!!

[patricktoulon]

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

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 :

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

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

[unparia]

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

Code :

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

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

et

Code :

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

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

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

[NonoSpaceRider]

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

Merci beaucoup !

Vous êtes trop forts !