manipuler .Find

[albert]

Bonsoir à tous et à toutes, forumiens, forumiennes,

Je tourne en rond sur un problème simple, mais je ne trouve pas de solution :
Dans une liste discontinue, je veux sélectionner le dernier mot « bleu » de la liste.
Si j’écris
Set Plage = Range("A4:A30").Find("bleu")
Plage.Select
C’est le premier mot « bleu » de la plage qui est sélectionné (ligne 9)
Si j’inverse la plage, ça ne marche pas Set Plage = Range("A30:A4").Find("bleu")


Ma question : comment sélectionnr « bleu » à la ligne 14

Merci d’avance

 

[albert]

avec un peu de persévérance, on y arrive :


Sub cherche2()
Cells(19, 1).Activate

Set plage = Cells.Find(What:="bleu", After:=ActiveCell, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
plage.Select
End Sub