Microsoft 365 Rechercher dans feuil2 sans l'activer et coller si trouvé en Feuil1

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'ai encore besoin de l'aide de nos ténors.
Je n'arrive pas à bien coder ma recherche :

Mon p'tit besoin :
je suis sur la feuil1 (feuille active)
je recherche : "Bonjour le Forum"
La recherche se fait sur la feuil2 sans l'activer
si trouvé :
"Bonjour le Forum" la cellule qui contient "Bonjour le Forum" est activée et copiée en Feuil1 (active) cellule E7
si pas trouvé :
"Y'EN A PAS !" est écrit en Feuil1 (active) cellule E7

Auriez-vous le bon code,
En cas, je joins un petit fichier test,
Je vous remercie beaucoup,
lionel

 

[TooFatBoy]

Bonjour,

As-tu essayé, avec l'enregistreur de macro pour faire la recherche, puis en nettoyant le code pour que la recherche se fasse sans activer la feuil2 ?

 

[Usine à gaz]

Bonjour,

As-tu essayé, avec l'enregistreur de macro pour faire la recherche, puis en nettoyant le code pour que la recherche se fasse sans activer la feuil2 ?

Bonjour Marcel : OUI j'ai tenté mais je n'y suis pas arrivé

 

[job75]

Bonsoir Lionel, Marcel32,

Un code très basique :

Sub recherche()
Dim c As Range
Set c = Feuil2.Cells.Find("Bonjour le Forum", , xlValues, xlWhole)
Feuil1.[E7] = IIf(c Is Nothing, "Y'EN A PAS !", "Bonjour le Forum")
End Sub

De cette manière la casse ne change pas même si elle varie sur la cellule source.

A+

 

[Usine à gaz]

Bonsoir Gérard,
Merci d'être encore de me répondre.

Evidemment ça marche
Toutefois : Il faudrait également que la cellule trouvée qui contient "Bonjour le Forum" soit activée car (dans mon fichier de travail) je m'en sert de repère pour importer d'autres infos de la même ligne dans la Feuil1.

C'est possible ?
lionel

 

[job75]

Pour repérer une cellule il est inutile de l'activer car alors il faut aussi activer la feuille.

On peut par exemple la nommer "cible", c'est encore très basique.

 

[Usine à gaz]

Merci Gérard,
Je vais voir de ce côté là