Rechercher la ligne d'une cellule

Bonjour,

Je vous expose mon problème.

Dans un tableau, je cherche à connaitre la ligne d'une cellule.

Facile = cellule("ligne"; C1), cela me ressortira le numéro de ligne de la cellule C1

Mais si je veux que cette fameuse cellule C1 soit le résultat précédent d'une recherchev.

Je m'explique avec le code ci-dessous :

Range("A45").Select

ActiveCell.FormulaR1C1 = Date_bdx ' variable que je récupére d'un autre fichier

Range("A46").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C,R[-17]C:R[-13]C,1,FALSE)" ' recherche dans le tableau de la variable ci-dessus

Selection.Copy

Range("A47").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

num_ligne = Range("A47").Value 'variable du résultat de la recherche

Range("A48").Select

ActiveCell.FormulaR1C1 = "=CELL(""ligne"",num_ligne)" ' et là je voudrais obtenir le numéro de ligne de la recherche obtenu plus haut

Ca marche pas

Quelqu'un à une idée ???

Merci

    Set C = Columns("A").Find("ce que je cherche", Range("A1").End(xlDown), xlValues, xlWhole)
    If Not C Is Nothing Then
    MsgBox ("trouvé en " & C.Row & " !")
    End If

Hello

J'ai écrit çà :

Set C = Columns("A").Find(" & num_ligne & ", Range("A48").End(xlDown), xlValues, xlWhole)

If Not C Is Nothing Then

MsgBox ("trouvé en " & C.Row & " !")

End If

Le num_ligne étant la valeur que je recherche mais cela ne fonctionne pas...

si c'est bien la valeur num_ligne que tu cherches dans la colonne A :

Set C = Columns("A").Find(num_ligne, Range("A48").End(xlDown), xlValues, xlWhole)
If Not C Is Nothing Then
MsgBox ("trouvé en " & C.Row & " !")
End If

dans ton exemple tu cherchais le texte suivant : "& num_ligne &" !

Super ça marche !!!

Merci !!!!

Re bonjour

Alors mon code est le suivant :

'Recherche du N° de ligne de la date du jour du bdx

Set C = Columns("A").Find(Date_bdx, Range("A7").End(xlDown), xlValues, xlWhole)

If Not C Is Nothing Then

num_jour = C.Row

End If

Date_bdx étant une variable récupérer d'une autre macro et définie comme : Public Date_bdx As Date.

Le but étant de trouver dans la feuille en cours cette date (toutes les dates sont dans la colonne A et commence à la ligne 7).

Et bien la macro ne fonctionne pas....

Sauf si j'affiche la variable Date_bdx sur n'importe quelle ligne de la colonne a

Range("A1").Select

ActiveCell.FormulaR1C1 = Date_bdx

'Recherche du N° de ligne de la date du jour du bdx

Set C = Columns("A").Find(Date_bdx, Range("A7").End(xlDown), xlValues, xlWhole)

If Not C Is Nothing Then

num_jour = C.Row

End If

Là il va trouver mais en ligne 1, et la ligne que je voudrais est en 30...

Une idée ?

Un bout de fichier ?

Le voilà

Filou78 a écrit :

Le but étant de trouver dans la feuille en cours cette date (toutes les dates sont dans la colonne A et commence à la ligne 7).

Et bien la macro ne fonctionne pas....

Une idée ?

petit filou ... je n'ai surtout pas trouvé de dates sont dans la colonne A à partir de la ligne 7

Désolé je t'ai envoyé le mauvais fichier.....

Les voici....

En attendant j'ai triché .....

Ce qui ne marche pas est en commentaire

Merci..