Format de control d'une barre de défilement
D'Espelette Housewife
-
D'Espelette Housewife -
D'Espelette Housewife -
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.
A voir également:
- Format de control d'une barre de défilement
- Format epub - Guide
- Barre de défilement - Guide
- Format factory - Télécharger - Conversion & Codecs
- Fan control - Télécharger - Optimisation
- Hp usb disk storage format tool - Télécharger - Stockage
2 réponses
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+
