Scrollbar

Bonjour à tous,

j'ai un souci avec ma scrollbar, savez vous pourquoi ?

Dim début, nLigneTxt, n, f
Private Sub UserForm_Initialize()
  Set f = Sheets("BUDGET PRINCIPAL")
  début = 45
  nLigneTxt = 5
  n = nLigneTxt
  nBD = Application.CountA(f.[f:f]) - 1
  If nBD < n Then n = nBD
  Me.ScrollBar1.Min = 1
  Me.ScrollBar1.Max = nBD - n + 1
  affiche
End Sub

Private Sub ScrollBar1_Change()
  début = ScrollBar1
  affiche
End Sub
Private Sub B_ok_Click()
  Set f = Sheets("BUDGET PRINCIPAL")
  f.[BA2] = "*" & Me.TextBox1 & "*"
  f.[BB2] = "*" & Me.TextBox2 & "*"
  f.[A1:AF10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[BA1:BB2], CopyToRange:=Sheets("Feuil1").[A1:AF1]

  Set f = Sheets("Feuil1")
  début = 1
  For I = 1 To n
    Me("txt2" & I).Value = ""
    Me("txt3" & I).Value = ""
    Me("txt4" & I).Value = ""
    Me("txt5" & I).Value = ""

  Next I
  nInterro = Application.CountA(f.[A:A]) - 1
  If nInterro < n Then n = nInterro
  Me.ScrollBar1.Min = 1
  Me.ScrollBar1.Max = nInterro - n + 1
  affiche
  n = nLigneTxt
End Sub
Sub affiche()
  For I = 1 To n

    Me("txt2" & I).Value = f.Cells(I + début, 6)
    Me("txt3" & I).Value = f.Cells(I + début, 7)
     Me("txt4" & I).Value = f.Cells(I + début, 8)
     Me("txt5" & I).Value = f.Cells(I + début, 9)

  Next I

End Sub

Enfait quand je fait defiler elle ne suit pas normalement. Je voudrais qu'elle défile avec la colonne F en 1er

C'est bon, dans mon cas fallait renseigner

Me.ScrollBar1.Min = 45
Rechercher des sujets similaires à "scrollbar"