fonction recherche

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+

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+

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+

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

merci beaucoup

A+