Discussion :

[sharox]

Bonjour a tous
Pour un projet, je dois mettre une scrollbar
j'ai regardé plusieurs pages sur internet mais je ne comprend pas comment cela fonctionne

je l'ai mise dans mon Userform, mais quand je fait défilé le curseur rien ne ce passe
je ne sais pas quoi faire pour que quand je touche a l'ascenseur de la scrollbar, mon Userform descende ou monte

Y a-t-il des conditions pour que cela fonctionne ?
merci

[Invité]

Bonjour,
quand tu parle de scrollbar je ne sais pas de quoi tu parles de la propriété du userform ou d'un contrôle scrollbar pioché dans la boite à outils des contrôle?

[sharox]

Ha

bha je vient d'apprendre qu'il y en avais 3 ^^

Heu.. franchement vu que j'en suis au point 0
je vais te laisser me proposer ce que tu trouve le plus intéressent,

Au début, j'ai pris un contrôle scrollbar pioché dans la boite à outils des contrôle

[Invité]

donc partons sur celui que tu as pris dans la boîte à outils.

et réfléchissante sur ce que du veux faire bouger!
les crollbar dispose de 3 propriétés:
1) Max valeur maximale que peut atteindre le scrollbar par exemple 10 si tu click sur la flèche du bas il ne dépassera jamais 10
2) Min valeur minimale que peut atteindre le scrollbar par exemple 5 si tu click sur la flèche du Haut il ne descendra en dessous de 5
3)Largeurchange défini le pas du scrollbar si tu mets 3 la valeur du scrollbar passera 0;3;6;9 et 9;3;0

double click sur le scrollbar

Code :

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

1
2
Private Sub ScrollBar1_Change()
End Sub

tu veux faire bouger le UserForm?

Code :

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

1
2
3
4
5
6
Private Sub ScrollBar1_Change()
Me.Top = ScrollBar1.Value
End Sub
Private Sub UserForm_Initialize()
 ScrollBar1.Value = Me.Top
End Sub

tu veux changer la valeur d'un textebox en fonction de la cellule [A2]

Code :

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

1
2
3
Private Sub ScrollBar1_Change()
Me.TextBox1 = Range("A2").Offset(Me.ScrollBar1.Value)
End Sub

tu veux faire défiler le contenue du UserForm en fonction du ScrollBar1
place une contrôle frame dans Useform et tes contrôles dans la frame pas le ScrollBar et fixe le min a -120

Code :

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

1
2
3
Private Sub ScrollBar1_Change()
Me.Frame1.Top = Me.ScrollBar1.Value
End Sub

[sharox]

D'accord,

Merci beaucoup pour ces explications,

j'ai une autre question :

pour un Min = 0 et un Max = 312

Mon userform apparait au milieu de l'écran,
mais si je met la scrollbar.Value a 150 par exemple
la première fois que je vais toucher la barre de défilement, mon userform va monter a la valeur 150

Et si je met en valeur 300, alors quand je vais le toucher pour la première fois, mon userform va descendre à la valeur 300

L'initialisation ne sert pas a grand chose j'ai l'impression, a moins qu'il faut peut être le faire après que userform.show effectué

[Invité]

si a l'initialisation tu place la scrollbar.Value=150 ton Userform vas ce placer à 150 puis varier en fonction du scrollbar

Code :

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

1
2
3
Private Sub UserForm_Initialize()
 ScrollBar1.Value =150
End Sub