Scrollbar
j
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
j
C'est bon, dans mon cas fallait renseigner
Me.ScrollBar1.Min = 45