Bouton recherche -User form

Bonjour ,

je suis entrain d'essayer d'ajouter un boutton search avec un text box dans un userform (CALENDAR_SLE) , auquel je dois faire une petite recherche avec un ID qui se trouve dans la cellule J$. Je cherche à afficher les données qui se trouvent dans le Tableau excel dans les textbox de la user form, ici j'arrive a faire la recherche mais j'ai pas eu les bonnes resultat c'est toujours le premier Textbox prend le resultat de la dernière cellule du tableau alors que j'ai besoin juste du nom et prénom qui se trouvaient dans les cellules C ET D

voici mon code merci

Private Sub CommandButton6_Click()

    Dim FindThis As String

    Dim LastColumn, LastRow As Integer

    Dim rw, FirstAddress, LastCell, SrchRnge

    Calendar_SLE.TextBox1 = ""
    Calendar_SLE.TextBox2 = ""

    LastRow = Sheet1.Range("$C$2").End(xlDown).Row
    LastColumn = Sheet1.Range("$C$2").End(xlToRight).Column
    LastCell = Cells(LastRow, LastColumn).Address
    SrchRnge = "$C$4:" & LastCell

    FindThis = Calendar_SLE.TextBox8

    With Sheet1.Range(SrchRnge).Cells

      Set rw = .Find(What:=FindThis, After:=Sheet1.Range("$C$4"), LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

    End With

    On Error GoTo notfound

    Calendar_SLE.TextBox1 = Sheet1.Range("C1").Offset(Range(rw.Address).Row - 1, Range(rw.Address).Column)
   ' Calendar_SLE.TextBox2 = Sheet1.Range("C1").Offset(Range(rw.Address).Row - 1, Range(rw.Address).Column + 1)

notfound:

    If Calendar_SLE.TextBox2 = "" Then

        MsgBox ("No Result for " & FindThis)

    Else
    End If

End Sub

Bonjour,

Tu te complique beaucoup ..find te renvoi une cellule et tu peut l'utiliser..

Je suis pas sut d'avoir compris ton organisation des données. .

Mais par exemple pour renvoyer ce qui se trouve en colonne C ..

msgbox rw.entirerow.cells (1,3)

(si j'ai pas inversé ligne et colonne...)

Salut pierre

je l'ai essayé ça m'a rien donné :/