Discussion :

[apnw7931]

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.

[Jean-Philippe André]

salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Bonjour
Une autre proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[apnw7931]

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

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