Macro : Récupération de données avec "Find"

[roidurif]

Bonjour,

J’essaie de créer une macro, qui me permettra d’aller chercher un fichier Excel et rapatrier certaine données dans mon fichier.

Pour cela, j’utilise la fonction Find VBA.

Ce que je n’arrive pas à faire, c’est dire Aller le champs X => récupéré la donnée d’en face du X.

Exemple :
Chercher le champs « Nom » (dans le fichier 2 ou onglet 2) et récupérer la donnée en face « Pierre ».
Etc.

Sub test()
Set A = Sheets("Feuil1").Cells.Find("Nom")
If Not A Is Nothing Then Range("A1") = A.Offset(, 2).Value.Address '(REF_ABS, REF_ABS)

Set P = Sheets("Feuil1").Cells.Find("Prénom")
If Not P Is Nothing Then Range("A1") = P.Offset(, 2).Value.Address

Set Q = Sheets("Feuil1").Cells.Find("Adresse")
If Not Q Is Nothing Then Range("A1") = Q.Offset(, 2).Value.Address

End Sub

J’espère avoir était clair.
Je votre remercie de votre aide

 

[tototiti2008]

Re : Macro : Récupération de données avec "Find"

Bonjour roidurif,

Peut-être :

Sub test()
Dim A As Range, P As Range, Q As Range
Set A = Sheets("Feuil1").Cells.Find(What:="Nom", LookIn:=xlValues, LookAt:=xlPart)
If Not A Is Nothing Then Range("A1") = A.Offset(, 1).Value
Set P = Sheets("Feuil1").Cells.Find(What:="Prénom", LookIn:=xlValues, LookAt:=xlPart)
If Not P Is Nothing Then Range("A2") = P.Offset(, 1).Value
Set Q = Sheets("Feuil1").Cells.Find(What:="Adresse", LookIn:=xlValues, LookAt:=xlPart)
If Not Q Is Nothing Then Range("A3") = Q.Offset(, 1).Value
End Sub