N° de la dernière ligne qui cotient la valeur de la txtbox

Bonjour

j'ai ma valeur de la textbox qui est présente dans plusieurs lignes. c'est quoi l'instruction vba pour connaître le n° de la dernière ligne qui contient cette valeur

Merci

Bonjour,

Un peu plus d'éléments serait souhaitable pour faire des propositions pertinentes et adaptées... Un fichier représentatif et un code VBA à fournir ?

Bonjour Sa3d88, Pedro, bonjour le forum,

Tout à fait d'accord avec Pedro... Comme tu ne daignes pas préciser l'emplacement des données, un code a adapter :

Sub Macro3()
Dim COL As Integer
Dim R As Range
Dim PA As String
Dim LI As Long

COL = 1 'Ici le numéro de la colonne où se trouve la valeur de la TextBox (laquelle d'ailleurs ?!...)
Set R = Columns(COL).Find(Me.TextBox1, , xlValues, xlWhole)
If Not R Is Nothing Then
    PA = R.Address
    LI = R.Row
    Do
        Set R = Columns(COL).FindNext(R)
        If R.Row > LI Then LI = R.Row
    Loop While Not R Is Nothing And R.Address <> PA
End If
MsgBox LI
End Sub

Bonjour,

Salut ThauThème,

Peut-être plus simple en utilisant le paramètre xlPrevious de Find.

Sub Test()
Dim Plage As Range, R As Range
    Set Plage = Sheets("Feuil1").UsedRange
    Set R = Plage.Find(TextBox1.Value, , , , , xlPrevious)
    If Not R Is Nothing Then MsgBox R.Address
End Sub

Re,

Arf ! Je savais qu'il y avait un autre moyen mais je ne l'ai pas trouvé... Merci Pijaku, c'est bien évidemment beaucoup plus simple !

Merci bcp les amis les deux propositions marchent bien