SrollBar

[Lagache]

Bonjour le Forum

Je cherche à installer un scrollbar sur une feuille de calcul pour faire défiler de gauche à droite et inversement cellule par cellule , mais je ne trouve pas le code correspondant
J'ai essayé d'adapter ce code avec l'aide de Vba :

Private Sub ScrollBar1_Initialize()
ScrollBar1.Min = -225
ScrollBar1.Max = 289
ScrollBar1.Value = 0

Label1.Caption = "-225 -----Widgets----- 289"
Label1.AutoSize = True

Label2.Caption = ""
End Sub

Private Sub ScrollBar1_Change()
Dim ScrollSaved As Integer
'Previous ScrollBar setting
Label2.Caption = " Widget Changes " _
& (ScrollSaved - ScrollBar1.Value)
End Sub

Private Sub ScrollBar1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label2.Caption = " Widget Changes " _
& (ScrollSaved - ScrollBar1.Value)
ScrollSaved = ScrollBar1.Value
End Sub

Private Sub ScrollBar1_Scroll()
Label2.Caption = (ScrollSaved - ScrollBar1.Value) & " Widget Changes by Scrolling"

End Sub
Mais cela ne fonctionne pas
Merci de votre aide

 

[Lagache]

Re : SrollBar

Bonsoir le Forum

Bon et Ben je renouvelle ma demande d'aide , si pas possible et bien le dire , merci à vous !

 

[Pierrot93]

Re : SrollBar

Bonjour Lagache

mets plutôt un petit fichier exemple, ca sera plus facile pour voir ce que tu veux exactement et ainsi pouvoir te répondre.

Bonne journée
@+

 

[Lagache]

Re : SrollBar

Salut Pierrot et vous du Forum

Ci joint un petit exemple , mon fichier d'origine étant trop volumineux

Merci

 

[Hervé]

Re : SrollBar

bonjour 🙂

a essayer :

Private Sub ScrollBar1_GotFocus()
Me.ScrollBar1.Min = 1
Me.ScrollBar1.Max = 30
Cells(3, ScrollBar1).Activate
End Sub

code à placer dans le module de la feuille concernée.

salut

 

[Lagache]

Re : SrollBar

Salut Hervé et vous tous

Merci à toi , cela fonctionne trés bien.
Petite question :est il possible que le scrollBar suive, c'est à dire se déplace avec les cellules ?

@ + et encore merci !

 

[Hervé]

Re : SrollBar

re


on réinvente la barre de défilement horizontale ? 😀

comme ceci :

Private Sub ScrollBar1_GotFocus()
Me.ScrollBar1.Min = 1
Me.ScrollBar1.Max = 30
Cells(3, ScrollBar1).Activate
Me.ScrollBar1.Left = ActiveCell.Left
End Sub

salut

 

[Lagache]

Re : SrollBar

Re Hervé

Ben quoi dire devant tant de rapidité et de compétence!
Un grand merci à toi
Salut