comment fairre fonctionner un control slider avec des heures?

[pascal21]

bonsoir le forum
j'essaye de comprendre le fonctionnement d'un control slider dans un userform
avec des nombres standards pas de problème ce n'est pas très compliqué
mais comment faire pour que ça affiche des heures
plage horaire de 7:00 à 19:00
j'ai fais ça pour indiquer que je souhaite un format heure mais ça m'affiche 00:00

Range("a1").Value = Format(Slider1.Value, "hh:mm")

pouvez vous m'aider à comprendre
merci

 

[job75]

Bonsoir Pascal,

Private Sub Slider1_Change()
[A1] = Slider1 / 24
End Sub

Propriétés Min du Slider à 7, Max à 19.

Format en A1 => hh:mm.

Bonne nuit.

 

[pascal21]

Bonjour job75
Ça j'avais essayé mais ça marche pas, çà affiche 00:00 dans la cellule

 

[ChTi160]

Bonjour
Bonjour le Fil ,Le Forum
Peut être (sans fichier pas vident ) ?????
Comme le dit Job75 /
"Propriétés Min et Max réglées à 7 et 19"
SmallChange = 1
puis

Private Sub Slider1_Change()
[A1] = Format( Cdate(Slider1.value )/ 24,"hh:mm")
End Sub

Bonne journée
Amicalement
Jean marie
Ps :Voir fichier !
Min =1 ,Max =19 à modifier

 

[pascal21]

merci Jean Marie çà fonctionne

 

[job75]

Bonjour Pascal, Jean-Marie,

Bonjour job75
Ça j'avais essayé mais ça marche pas, çà affiche 00:00 dans la cellule

Essayé quoi ? Cela fonctionne très bien avec le fichier joint...

merci Jean Marie çà fonctionne

Le contrôle utilisé par Jean-Marie n'est pas un Slider...

A+

 

[ChTi160]

Re
Job75 Effectivement lol
je ne connais pas ce Control Lol
donc j'ai pensé ScrollBar Oups !!!! Excuses
Avec un fichier joint , je l'aurais découvert avant de ma lancer .
Une nouveauté pour moi Lol
Bonne fin de Journée
Amicalement
Jean marie