Format de control d'une barre de défilement
Bonsoir,
J'ai créé une barre de défilement que je souhaite lier à une date (pour faire avancer une calendrier). mon problème est que les seuils (valeur min et max) du format de control de la barre sont limités à 30000.
Comme nous sommes en 2016 ma valeur min est >40000. Comment faire???
Je touche au bout de mon projet !!!!
Merci pour votre aide.
J'ai créé une barre de défilement que je souhaite lier à une date (pour faire avancer une calendrier). mon problème est que les seuils (valeur min et max) du format de control de la barre sont limités à 30000.
Comme nous sommes en 2016 ma valeur min est >40000. Comment faire???
Je touche au bout de mon projet !!!!
Merci pour votre aide.
2 réponses
-
Bonsoir et Merci beaucoup pour votre aide,
Chaleureusement je n'y arrive pas. Je suis vraiment trop nulle!
Je vais essayer encore... :-( -
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 :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+
