Positionnement sur la cellule cliquée dans la listbox

Private Sub ListBox2_Click()
Dim C, Plage As Range
Dim Recherche As String
Set Plage = Sheets("droguerie").Rows("1:1")

Dim Recherche As String
Recherche = ListBox2

Set C = Plage.Find(Recherche)
If Not C Is Nothing Then
C.Select
End If

End Sub

Cliquez pour agrandir...

Private Sub ListBox2_Click()
Dim C, Plage As Range
Dim Recherche1 As String
Set Plage = Sheets("droguerie").Rows("1:1")

Dim Recherche1 As String
Recherche1 = ListBox2

Set C = Plage.Find(Recherche1)
If Not C Is Nothing Then
C.Offset(ListBox1.List(ListBox1.ListIndex, 1) - 1, 0).Select
End If

End Sub

Cliquez pour agrandir...

Code:

Private Sub TextBox7_Change()    'la je charge bien la ligne n° 1
    Dim C As Range
    Dim Adresse As String
    ListBox2.Clear
    Set C = Rows(1).Find(TextBox7)
    If Not C Is Nothing Then
        Adresse = C.Address
        Do
            If UCase(TextBox7) = UCase(Left(C, Len(TextBox7))) Then
                With ListBox2
                    .AddItem C
                    .List(.ListCount - 1, 1) = C.Column
                End With
            End If
            Set C = Rows(1).FindNext(C)
        Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End Sub

Private Sub ListBox2_Click()
    Dim Col As Byte
    Col = Val(ListBox2.List(ListBox2.ListIndex, 1))
    ActiveWindow.ScrollColumn = Col
    Cells(1, Col).Select
    Unload Me
End Sub

Attention : ListBox à 2 colonnes, la largeur de la seconde à 0

Cliquez pour agrandir...