affichage heures dans combobox

[Blafi]

Bonjour àtous,

Voila mon pb : j'ai besoin de choisir grace à un USF des heures de début et de fin d'activité qui devront ensuite s'inscrire dans ma feuille..(mon fichier est plus complexe que celui joint)

J'ai créé un USF avec 2 combobox et j'ai donné aux combobox comme Rowsource la zone de ma feuille données que j'ai appelée "horaires" et qui contient la liste des heures au format "10:00"..

Pb : quand je choisis une heure grace à l'une des combobox, l'heure choisie apparait sous forme de chiffre décimal dans ma combobox et lorsque je veux inscrire cette heure dans ma feuille, c'est là aussi un chiffre décimal qui apparait..

Ma question : comment afficher dans mes combobox l'heure choisie sous la forme "10:00" et que cette heure s'inscrive dans ma feuille sous la même forme ??

Merci d'avance à celui qui pourra m'aider..

 

[PascalXLD]

Re : affichage heures dans combobox

Bonjoru

pour l'affichage correct sur ta feuille

Range("D2").Value = CDate(ComboBox1.Value)
Range("E2").Value = CDate(ComboBox2.Value)

 

[BOISGONTIER]

Re : affichage heures dans combobox

Bonjour,

Private Sub UserForm_Initialize()
 For Each c In [horaires]
   Me.ComboBox1.AddItem Format(c, "hh:mm")
 Next c
 Me.ComboBox1.ListIndex = 0
End Sub

JB

 

[PascalXLD]

Re : affichage heures dans combobox

re

pour l'affichage

Private Sub ComboBox1_Change()
ComboBox1.Value = CDate(ComboBox1.Value)
End Sub

Private Sub ComboBox2_Change()
ComboBox2.Value = CDate(ComboBox2.Value)
End Sub

 

[skoobi]

Re : affichage heures dans combobox

Bonjour,
ajoutes ces 2 codes dans celui de l'USF:

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "h:mm")
End Sub
Private Sub ComboBox2_Change()
ComboBox2.Value = Format(ComboBox2.Value, "h:mm")
End Sub

Edit: arfff, collision, bonjour Pascal 🙂

 

[wilfried_42]

Re : affichage heures dans combobox

Bonjour à tous (oups comme je suis à la traine 😉)

comme j'ai bossé, je poste 😀

tu retires tes rowsource de tes 2 combobox

et tu ajoutes cette procedure d'initialisation dans userform

Private Sub UserForm_Initialize()
    For i = 1 To Range("horaires").Cells.Count
        ComboBox1.AddItem Format(Range("horaires")(i), "hh:mm")
        ComboBox2.AddItem Format(Range("horaires")(i), "hh:mm")
    Next i
End Sub

 

[Blafi]

Re : affichage heures dans combobox

Merci à tous pour vos réponses et vos solutions..
J'essaye tout cela..
Bon courage

 

[skoobi]

Re : affichage heures dans combobox

Re,
salut wilfried 🙂,

Bon courage

C'est toujours bien de s'auto motiver....

Je suis courageux mais pas téméraire 😛.