fonction recherche

[pierre]

bonjour a tous,

je me suis fait une macro pour trouver une valeur dans une feuille 2 en fonction d'une valeur en feuille 1

Sheets("2").Select
ColumB:B").Select
Selection.Find(What:=Sheets("1").[A1], After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate

mon probleme est que je n'arrive pas a attribuer la cellule trouvee en feuille 2 a une cellule en feuille 1.
en effet ca me permettrait de "tirer" cette cellule car je suis interesse par les trois valeurs adjacentes...


est ce que quelqu'un aurait une idee?

merci beaucoup

 

[Yeahou]

Bonjour pierre, le forum

la commande ci dessous t'établira un lien entre sheets("1").range("A2") et la cellule trouvée

évite d'utiliser After:=ActiveCell car si la cellule active ne fait pas partie de la zone de recherche, ça plante

Sheets("1").Range("A2").FormulaR1C1 = "='" & Sheets("2").Name & "'!" & Sheets("2").Columns("B:B").Find(What:=Sheets("1").Range("A1"), After:=Sheets("2").Range("B1"), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address(ReferenceStyle:=xlR1C1)

la commande ci dessous remplira A2 avec l'adresse de la cellule trouvée

Sheets("1").Range("A2").FormulaR1C1 = "'" & Sheets("2").Name & "'!" & Sheets("2").Columns("B:B").Find(What:=Sheets("1").Range("A1"), After:=Sheets("2").Range("B1"), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address

A+

 

[Yeahou]

Re bonjour

j'ai oublié de préciser que tu peux lancer ce type de commande ou que tu sois dans le classeur puisqu'elles ne font pas appel à des sélections

A+

 

[Yeahou]

Re Bonjour

content que cela te plaise, pierre, mais réponds plutôt sur le forum que sur ma bal.
tu devrais consulter ce lien
<http://www.excel-downloads.com/html/French/CharteXLD.php>

Cordialement, A+

 

[pierre]

desole je pensais que le forum etait juste pour le technique...

merci beaucoup

A+