Barre de defilement

[Lemidi34]

Bonsoir à tous,

je cherche à mettre dans mon userform une barre de defilement qui me permet de faire defiler mon tableau sous l'userform.

J'ai trouvé pour le faire de haut en bas mais pas de gauche à droite.

Merci de votre aide

 

[Manu13]

Bonjour lemidi34 et le forum

dans scrollbars selectionne fmscrollbarsboth dans les propriétés de l'userform

bonne soirée

Manu

 

[Lemidi34]

je crois pas que ce soit ce que je cherche

pour voir mon tableau de haut en bas j'utilise

Private Sub ScrollBar1_Change()

Dim Ligne As Long, Col As Integer

Col = ActiveCell.Column
Ligne = Me.ScrollBar1.Value
Me.Label107.Caption = Ligne
Cells(Ligne, Col).Select


End Sub

Private Sub UserForm_Initialize()

Me.ScrollBar1 = ActiveCell.Row
Me.ScrollBar1.Min = 1
Me.ScrollBar1.Max = 65536
Me.ScrollBar1.SmallChange = 1
Me.ScrollBar1.LargeChange = 100

End Sub

Avec ce code ma scrollbar fait naviguer mes cellules de haut en bas, mais je souhaite avoir de gauche a droite

Merci

 

[Mytå]

Salut le Forum

Avec deux scrollbars

Option Explicit

Dim Ligne As Integer
Dim Colonne As Byte

Private Sub ScrollBar1_Change()

Colonne = ActiveCell.Column
Cells(Me.ScrollBar1.Value, Colonne).Select

End Sub

Private Sub ScrollBar2_Change()

Ligne = ActiveCell.Row
Cells(Ligne, Me.ScrollBar2.Value).Select
End Sub

Private Sub UserForm_Initialize()

With Me
    With ScrollBar1
        .Min = 1
        .Max = 65536
        .SmallChange = 1
        .LargeChange = 100
        .Value = ActiveCell.Row
    End With
    
    With ScrollBar2
        .Min = 1
        .Max = 255
        .SmallChange = 1
        .LargeChange = 25
        .Value = ActiveCell.Column
        End With
        
End With

End Sub

Myta

 

[Lemidi34]

Rebonjour le forum

Merci Myta ca marche nickel