Récupérer l'adresse d'une cellule via FIND

Bonjour

je vous explique mon soucis

j'ai besoin de rechercher dans la colonne A l'info "journée ..."

mais j'ai aussi besoin de récupèrer le numéro de ligne de la cellule

trouver la cellule j'y arrive , mais je n'arrive pas a récupérer la ligne

voici le code :

Sub essai()
Dim lg3 As Variant
Dim adresse As Range

Lg = [j500].End(xlUp).Row

For i = 1 To 25 'nb de journee max =25

Set adresse = Range(Cells(Lg, 1), Cells(900, 1)).Find(What:="Journée " & i, LookAt:=xlPart)

If adresse Is Nothing Then 'verifie qu'il y ai une une journée = i

i = 25

Else

' c'est la ou j'ai besoin du numéro de la ligne 

End If
Next i
End Sub

j’espère que vous pourrez m'aider , je vous joins le fichier

103classeur1.xlsm (45.24 Ko)

Bonjour,

adresse.Row, peut-être?

Bonne soirée

merci bcp ... pourquoi j'y ai pas pensé

les choses les plus simples sont des fois difficiles a retrouver

Rechercher des sujets similaires à "recuperer adresse via find"