N° de la ligne qui contient les valeurs de deux textbox

Bonjour les amis

svp c'est quoi le code pour connaitre le n° de la ligne qui contient les valeurs de deux textbox j'ai essayé ca ma ca marche pas

Dim sel As Range

Set sel = Sheets("Feuil1").Cells.Find(Me.TextBox1.Value And TextBox5.Value, , xlValues, xlWhole)

Dim ligne As Integer

ligne = sel.Row

Merci

Bonjour,

Ce n'est pas And mais & (l'esperluette) et il te faut impérativement contrôler si la recherche est fructueuse sinon, plantage !

Dim sel As Range
Dim ligne As Integer

Set sel = Sheets("Feuil1").Cells.Find(Me.TextBox1.Value & TextBox5.Value, , xlValues, xlWhole)

'il faut impérativement contrôler si la recherche est fructueuse
If Not sel Is Nothing Then

    ligne = sel.Row

End If

MsgBox ligne

bonjout theze

peux tu stp jeter un coup d'oeil sur mon fichier teste je voudrai savoir le code de mon "VALIDER" du userform1 pour connaitre le n° de la ligne qui contient à la fois la valeur de la textbox1 et la textbox15

une fois connue renvoyer les valeurs TextBox4, TextBox5,TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11 sur la feuil1

cijoint mon fichier et merci pour votre aide

Bonjour,

Tu peux par exemple utiliser une variable de niveau module (déclarée en tête de module ici, "Lig") qui sera paramétrée dans la recherche et qui va garder sa valeur tant que le formulaire est actif :

Dim Lig As Long

Private Sub CommandButton1_Click()

    MsgBox "Le numéro de ligne est : " & Lig

End Sub

Private Sub TextBox15_Change()

    Dim adi As Long

    adi = Worksheets("Feuil1").Range("A4").CurrentRegion.Rows.Count + 2

    If Len(TextBox15.Text) = 10 Then

        For i = 4 To adi

            On Error Resume Next

            If TextBox1.Value = Cells(i, 1) And CDate(TextBox15.Value) = Cells(i, 5) Then

                Lig = i '<--- mémorise le numéro de la ligne où se trouve les valeurs

                TextBox2.Value = Cells(i, 2).Value
                TextBox3.Value = Cells(i, 3).Value
                TextBox13.Value = Cells(i, 4).Value

                If Cells(i, 13).Value <> "" Then

                    CommandButton1.Enabled = False
                    MsgBox "rachat déjà règlé le " & Cells(i, 13).Value, vbExclamation, "Attention"

                Else

                    CommandButton1.Enabled = True

                End If

                Exit For

            Else

                TextBox2.Value = ""
                TextBox3.Value = ""
                TextBox13.Value = ""

            End If

        Next i

    Else

        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox13.Value = ""

    End If

End Sub