A voir également:
- Format de control d'une barre de défilement
- Format epub - Guide
- Barre de défilement - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format apfs - Guide
- Égal barré ✓ - Forum Clavier
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
14 sept. 2016 à 22:59
14 sept. 2016 à 22:59
Bonjour,
Tu peux adapter la plage de ton ScrollBar.
Exemple :
Début au 01/01/2016, soit 42370.
Fin au 31/12/2016, soit 42735.
Il suffit de noter les valeurs mini et maxi suivantes :
Min 370.
Max 735.
Et ensuite, ajouter 42000 pour utiliser le résultat.
Exemple de code avec un scrollBar et un Label :
A+
Tu peux adapter la plage de ton ScrollBar.
Exemple :
Début au 01/01/2016, soit 42370.
Fin au 31/12/2016, soit 42735.
Il suffit de noter les valeurs mini et maxi suivantes :
Min 370.
Max 735.
Et ensuite, ajouter 42000 pour utiliser le résultat.
Exemple de code avec un scrollBar et un Label :
Private Sub UserForm_Initialize()
With ScrollBar1
.Min = 370
.Max = 735
.LargeChange = 10
.SmallChange = 1
Label1 = Format(Now, "dd mmm yyyy")
ScrollBar1.Value = Now - 42000
End With
End Sub
Private Sub ScrollBar1_Change()
Dim DateScroll As Date
DateScroll = CDate(42000 + ScrollBar1.Value)
Label1 = Format(DateScroll, "dd mmm yyyy")
End Sub
A+
