Discussion :

[stephadm]

Bonjour au forum,

J'ai deux ComboBox (2 et 3) dans laquelle je sélectionne la plage horaire, quand je choisie 08:30, la ComboBox affiche un chiffre décimal du genre "0,354166666666667", pour 10:00 "0,416666666666667", etc.

Les ComboBox sont liées à la colonne AA
Plage horaire (entête)
08:00
08:30
09:00
...

Comment faire pour afficher les ComboBox en heure et que je puisse reprendre la valeur au format hh:mm dans mon code

Code :

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

1
2
    .Start = TextBox3.Value & " " & ComboBox2.Value
    .End = TextBox4.Value & " " & ComboBox3.Value

Chargement des ComboBox dans

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim List
 
List= Feuil18.Range("AA2:AA" & Feuil18.Range("AA6500").End(xlUp).Row)
ComboBox2.List = List
List= Feuil18.Range("AA2:AA" & Feuil18.Range("AA6500").End(xlUp).Row)
ComboBox3.List = List

Comment faire ?

Merci

Stephanie

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
    combobox2.Value = Format(combobox2.Value, "hh:mm:ss")
    combobox3.Value = Format(combobox3.Value, "hh:mm:ss")
    .Start = TextBox3.Value & " " & combobox2.Value
    .End = TextBox4.Value & " " & combobox3.Value

ou

Code :

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

1
2
    .Start = TextBox3.Value & " " & Format(combobox2.Value, "hh:mm:ss")
    .End = TextBox4.Value & " " & Format(combobox3.Value, "hh:mm:ss")

[stephadm]

re bonjour Daniel.C et au forum

Désolé, je n'ai pas précisé que j'avais deja essayé le code similaire à votre 2è solution mais qui ne fonctionnait pas. Je viens de faire l'essai avec le première

Code :

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

1
2
3
4
ComboBox2.Value = Format(ComboBox2.Value, "hh:mm:ss")
ComboBox3.Value = Format(ComboBox3.Value, "hh:mm:ss")
.Start = TextBox3.Value & " " & ComboBoxx2.Value
.End = TextBox4.Value & " " & ComboBox3.Value

pareil cela ne fonctionne toujours pas, j'ai des chiffres avec des décimal dans la ComboBox au lieu de 10:00 (par exemple). Le problème survient lorsque je clique dans la ComboBox il affiche les chiffres avec décimal

Une idée ?

Merci

Stephanie

[fring]

Bonjour,

Pour charger les Combo, procèdes comme ceci :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim i As Integer
 
For i = 2 To Feuil18.Range("AA" & Rows.Count).End(xlUp).Row
    Me.ComboBox2.AddItem Range("AA" & i).Text
    Me.ComboBox3.AddItem Range("AA" & i).Text
Next
End Sub

Ensuite pour récupérer la valeur et la garder au format Date

Code :

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

Range("X1") = CDate(Me.ComboBox2.Value) '<-- "Me" si la procédure est lancée depuis le UserForm

Pour info, évite d'utiliser le terme End comme nom de variable ou d'objet, End étant un terme utilisé par VBA

[Daniel.C]

Essaie ces deux macros :

Code :

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

1
2
3
4
5
6
7
Private Sub ComboBox2_Change()
    ComboBox2.Value = Format(ComboBox2.Value, "hh:mm:ss")
End Sub
 
Private Sub ComboBox3_Change()
    ComboBox3.Value = Format(ComboBox3.Value, "hh:mm:ss")
End Sub

[stephadm]

bonsoir Daniel.C, fring et au forum

Fring, merci de votre réponse car elle fonctionne et c'était exactement ce que je voulais.

Merci à vous

Stephanie