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

TooFatBoy

XLDnaute Barbatruc

• 25 Janvier 2022

• #2

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 ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 25 Janvier 2022

• #3

Marcel32 à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Janvier 2022

• #4

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 25 Janvier 2022

• #5

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: 25 Janvier 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Janvier 2022

• #6

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 25 Janvier 2022

• #7

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

 

Vote positif 0 Vote négatif