Comment récupererle Numéro de la ligne avec FIND

[corvelc]

Bonjour,
malgré mes recherches je n'arrive pas à trouver réponse à mon besoin qui est :

' Rechercher dans un tableau le code concerné

Set L1 = Sheets("Feuil2").Columns("A").Find(What:=Code, LookAt:=xlWhole)

If Not L1 Is Nothing Then

?? Comment récuperer sur feuil2 le Numéro de la ligne ou se trouve le code recherché pour ensuite copier la valeur de la colonne F vers Feuil1 ??

End If

certainement simple, mais pas encore pour moi

merci d'avance

 

[Pierrot93]

Re : Comment récupererle Numéro de la ligne avec FIND

Bonjour corvelc, Jean-Marcel

une autre solution, recherche la date du jour dans la colonne A de la feuil1, à adapter :

Dim x As Range
Set x = Sheets("Feuil1").Range("A:A").Find(Date, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then Sheets("Feuil2").Range("A3").Value = "ligne n° " & x.Row

bon après midi..
@+

 

[corvelc]

Re : Comment récupererle Numéro de la ligne avec FIND

Toujours pas OK erreur 424.

de plus, il faudrait que je recupere le numéro de ligne à l'interieur de ma condition "If Not L1 Is Nothing Then" ou juste aprés la fonction FIND, car j'ai d'autres traitements définis dans cette boucle si trouve le valeur.

joint un fichier de test

 

[Pierrot93]

Re : Comment récupererle Numéro de la ligne avec FIND

Re

ce code fonctionne chez moi (Excel 2003). Pas le code utilisé dans ton fichier...

 

[corvelc]

Re : Comment récupererle Numéro de la ligne avec FIND

Effectivement la solution de pierrot93 fonctionne.
Erreur dans mon script.

merci a vous, avec ça je devrais avancer.

Bon soir