N° de ligne à partir de textbox

Bonjour

svp quel est le code que à écrire dans Private Sub TextBox2_Change() qui me permet la chose suivante :

lorsque je saisi une valeur dans textbox2 il m'affiche la ligne ou se trouve cette valeur dans un msgbox

Merci

Salut sa3d88,

L'événement change provoquerait une recherche à chaque lettre tapée : guère confortable !

Ce code est valable pour une TextBox placée directement sur la feuille.

Si tu veux la même chose dans un USF, prière de fournir un fichier avec les explications complètes et nécessaires...

Private Sub TextBox1_LostFocus()
'
Dim rCel As Range, sMsg$
'
On Error Resume Next
'
If Worksheets("Feuil1").OLEObjects("TextBox1").Object.Text <> "" Then
    Set rCel = Range("A:A").Find(what:=Worksheets("Feuil1").OLEObjects("TextBox1").Object.Text, lookat:=xlWhole, LookIn:=xlValues)
    If Not rCel Is Nothing Then
        sMsg = "Ce mot se situe à la ligne " & rCel.Row & "."
    Else
        sMsg = "Ce mot n'existe pas dans la colonne [A:A]."
    End If
    MsgBox sMsg, vbInformation + vbOKOnly, "Recherche"
End If
'
On Error GoTo 0
'
End Sub

A+

Bonjour curulis57

merci pour ton retour.

ci-joint mon fichier je veux lorsque je saisie une valeur dans la textbox2 du userform il m'affiche la ligne sur laquelle se trouve ma valeur

Salut sa3d88,

vois pas trop l'intérêt, mais bon...

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'
Dim rCel As Range, sMsg$
'
On Error Resume Next
'
If Me.TextBox2.Text <> "" Then
    With Worksheets("Imtiyaz Individuelle")
        Set rCel = Range("D:D").Find(what:=Me.TextBox2.Text, lookat:=xlWhole, LookIn:=xlValues)
        If Not rCel Is Nothing Then
            sMsg = "Cette valeur CIN se situe à la ligne " & rCel.Row & "."
        Else
            sMsg = "Cette valeur CIN n'existe pas dans la colonne [D:D]."
        End If
        MsgBox sMsg, vbInformation + vbOKOnly, "Recherche"
    End With
End If
'
On Error GoTo 0
'
End Sub

A+