Recherche d'un numéro de ligne

Question

Bonjour,
Voir le fichier ci-joint. Sa structure est la suivante :
Les 15 premières lignes de la colonne A sont des références saisies manuellement.
A partir de la ligne 16 (et jusqu'à la ligne 500), c'est une formule qui dépend de la donnée en colonne B.
Par macro, je souhaite récupérer la dernière ligne où le résultat s'affiche en colonne A. Je cherche donc à obtenir 27 dans mon exemple.
Voir les 2 lignes de codes tentées dans mon code, mais elles ne marchent pas... Ça retourne soit 15 (avant les formules), soit 500 (ligne de la dernière formule)...
Avez-vous une solution à ce problème ?
Merci d'avance.

Dadams

13essai-recherche-numero-de-ligne.xlsm (22.59 Ko)

Thrrybo · Accepted Answer

Essayez ceci, si tentez que la colonne B ne puisse pas aller plus bas que la A. derligne = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row...

Thrrybo · Answer

C'est normal, il recherche sur la feuille complète.

"*"                            'la valeur à chercher, dans ce cas-ci, rien de précis
SearchOrders:=xlByRows         'Cherche par ligne
SearchDirection:=xlPrevious    'Sens de recherche
LookIn:=xlValues               'quel "type" de donnée chercher, une valeur dans ce cas-ci, qui omet les formules

Et si tu souhaite uniquement faire la recherche dans une plage précise

With Worksheets("Feuil1").Range("A1:A500")
derligne = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
MsgBox derligne
End With