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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :)
 

Pièces jointes

  • Recherche_test.xlsm
    20.1 KB · Affichages: 9
Dernière édition:

job75

XLDnaute Barbatruc
Bonsoir Lionel, Marcel32,

Un code très basique :
VB:
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

XLDnaute Barbatruc
Supporter XLD
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 :)
 
Dernière édition:

Discussions similaires

Réponses
25
Affichages
942

Statistiques des forums

Discussions
312 896
Messages
2 093 387
Membres
105 716
dernier inscrit
jrmdprt