Discussion :

[tchantches007]

Bonjour à tous,

Je cherche à mettre, dans un UserForm, un slider pour la sélection d'un horaire par tranche d'une demi-heure compris entre 08h00 et 19h30.

Mon problème est que le slider (Microsoft Slider Control, Version 6.0) ne me permet pas de changer les incrémentations minimum et fonctionne en décimal (ce qui n'est pas le cas de nos horloges).

Quelqu'un a-t-il une idée ?


Je précise, travail sous excel version 2010...

Merci d'avance.

Si vous avez d'autres solutions (user friendly) pour cette opération, je suis éventuellement preneur ...

[PMO2017]

Bonjour,

Essayez la démarche suivante
1) créez un UserForm1
2) avec un contrôle Slider1
3) et un contrôle Label1
4) copiez le code suivant dans la fenêtre de code du UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim MesHeures As Variant
 
Private Sub Slider1_Change()
Call QuelleHeure
End Sub
 
Private Sub Slider1_Scroll()
Call QuelleHeure
End Sub
 
Private Sub UserForm_Initialize()
MesHeures = Array("08h00", "08h30", "09h00", "09h30", "10h00", "10h30", "11h00", "11h30", _
                  "12h00", "12h30", "13h00", "13h30", "14h00", "14h30", "15h00", "15h30", _
                  "16h00", "16h30", "17h00", "17h30", "18h00", "18h30", "19h00", "19h30")
With Slider1
  .Min = LBound(MesHeures)
  .Max = UBound(MesHeures)
End With
End Sub
 
Private Sub QuelleHeure()
Slider1.Text = MesHeures(Slider1.Value)
Label1.Caption = MesHeures(Slider1.Value)
End Sub

Je joins un classeur exemple pour plus de facilité.

[tchantches007]

Une seule réponse, mais c'est la bonne !
Merci beaucoup !