Bonjour,
Je souhaite créer une macro en utilisant la fonction "Rechercher" (Ctrl + F), car les données recherchées entre deux plages ne sont pas tout à fait identiques (rechercheV impossible). En fait je cherche une cellule dans la Feuill2 contenant le texte d'une cellule de la Feuill1.
Je voudrais que la valeur recherchée corresponde au contenu d'une cellule et pas un texte en dur. Dans mon exemple ci-dessous, je voudrais que "jardin" soit remplacé par la référence de la cellule [ActiveCell.Offset(0, -1).Range("A1")].
Je voudrais également que le résultat renvoyé depuis la Feuill2 soit celui de la igne trouvée (résultat relatif et non un résultat absolu)
Voici le code généré:
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
Sheets("Feuil2").Select
Cells.Find(What:="Jardin", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Sheets("Feuil1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Feuil2!R[2]C[2]"
ActiveCell.Offset(1, 0).Range("A1").Select
J'espère que c'est suffisament clair ...
Merci pour votre aide !
Je souhaite créer une macro en utilisant la fonction "Rechercher" (Ctrl + F), car les données recherchées entre deux plages ne sont pas tout à fait identiques (rechercheV impossible). En fait je cherche une cellule dans la Feuill2 contenant le texte d'une cellule de la Feuill1.
Je voudrais que la valeur recherchée corresponde au contenu d'une cellule et pas un texte en dur. Dans mon exemple ci-dessous, je voudrais que "jardin" soit remplacé par la référence de la cellule [ActiveCell.Offset(0, -1).Range("A1")].
Je voudrais également que le résultat renvoyé depuis la Feuill2 soit celui de la igne trouvée (résultat relatif et non un résultat absolu)
Voici le code généré:
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
Sheets("Feuil2").Select
Cells.Find(What:="Jardin", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Sheets("Feuil1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Feuil2!R[2]C[2]"
ActiveCell.Offset(1, 0).Range("A1").Select
J'espère que c'est suffisament clair ...
Merci pour votre aide !