How to autofocus on the last row on listbox

[adelvoira]

Hi,
i want to make my listbox autofocus on the last displayed row
thank you

 

[MickG]

Try :-

With ListBox1
    .ListIndex = .ListCount - 1
End With

 

[adelvoira]

It's working normal but it displays just the 10 first rows i don't know why?
here is my code:

Private Sub CommandButton15_Click()If Me.ComboBox6.Value = "CHIFFA VRAC" Then
Dim KK As Integer
KK = WorksheetFunction.CountA(Worksheets("STOCK_LUBRIFIANT").Range("B:B"))
ListBox6.RowSource = "STOCK_LUBRIFIANT!b8:f" & KK
ListBox6.ColumnCount = 5
ListBox6.ColumnWidths = "80;100;100;140;100"


With ListBox6
.ListIndex = .ListCount - 1
End With
End If
End sub

 

[MickG]

See red + 7 below:-

KK = WorksheetFunction.CountA(Worksheets("STOCK_LUBRIFIANT").Range("B:B"))
ListBox1.RowSource = "STOCK_LUBRIFIANT!b8:f" & KK [B][COLOR=#FF0000]+ 7[/COLOR][/B]

 

[adelvoira]

Ohooo

thank you

it's working now

 

[MickG]

You're welcome