Trouver la dernière cellule qui contient une valeur définie

Bonjour,

J'ai dans une colonne plusieurs fois le mots "TEST".
Comment puis je faire une macro qui me donne l'adresse de la dernière cellule de la colonne qui contient ce mot ?

Autrement dit, j'aimerai que la macro parte de la fin de la colonne, et qui me retrouve la première cellule qui contient "TEST".

Merci pour vos lumières.

Bonne journée.

salut,

une boucle for avec decrement ferait-elle l'affaire ?

Code:

---

1 2 3

For i = Range("A65536").End(Xlup).Row to 1 step -1   Next i

---

Bonjour,
essayes comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Sub test() Dim derlg As Long, i As Long With Sheets("feuil1") 'à remplacer par nom de ta feuille derlg = .Range("A" & .Rows.Count).End(xlUp).Row 'remplacer A par colonne concernée For i = derlg To 1 Step -1 If .Range("A" & i) = "TEST" Then Exit For Next i MsgBox .Range("A" & i).Address End Sub

---

PS : mes excuses pour jpcheck, collision

Bonjour
Une autre proposition

Code:

---

1 2 3 4 5 6 7

Dim c As Range   Set c = Sheets("Feuil1").Range("A:A").Find("TEST", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious) If Not c Is Nothing Then MsgBox c.Address 'L'adresse de ton dernier TEST de la colonne A Set c = Nothing End If

---

Merci pour vos 3 réponses.
Elles m'ont toutes aidées.

Merci encore. C'est toujours un plaisir.
Bonne fin de journée.