Fonction RechercheV en VBA = VlookUp?

Bonjour,

Je vous explique mon problème:

J'ai un base de données (matrice). Quand je clique sur un bouton, un userform s'ouvre, je veux saisir la valeur que je recherche dans un textbox et qu'il m'affiche la valeur trouvée du textbox + 2 colonnes (en gros la fonction rechercheV mais en VBA) dans une listbox

Voici mon VBA:

Private Sub TextBox1_Change()

 Dim myLookupValue As String
    Dim myFirstColumn As Long
    Dim myLastColumn As Long
    Dim myColumnIndex As Long
    Dim myFirstRow As Long
    Dim myLastRow As Long
    Dim myVLookupResult As Long
    Dim myTableArray As Range

 myLookupValue = TextBox1.Value

    myFirstColumn = 1
    myLastColumn = 3
    myColumnIndex = 3
    myFirstRow = 2
    myLastRow = 999

    With Worksheets("Base")
        Set myTableArray = .Range(.Cells(myFirstRow, myFirstColumn), .Cells(myLastRow, myLastColumn))
    End With

    ListBox1 = myTableArray.Value

End Sub

Je n'arrive donc pas à afficher ma valeur trouvé.

Pour plus de compréhension, je joint un fichier excel contenant mon exemple.

Merci d'avance pour l'aide

Cdlt

Bonjour,

Une piste :

Private Sub TextBox1_Change()

    Dim Tbl
    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Base"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
    Set Cel = Plage.Find(TextBox1.Text, , xlValues, xlWhole)

    If Not Cel Is Nothing Then

        ListBox1.RowSource = ""
        ListBox1.ColumnCount = 3
        ListBox1.RowSource = Worksheets("Base").Range(Cel, Cel.Offset(, 2)).Address

    End If

End Sub

Bonjour Test0121, Theze et le Forum !

Est-ce que c'est quelque chose comme ci-joint que tu recherche :0 ?