Maccro pour recherche mot dans plusieurs feuilles et mise en couleur

Bonjour

J'ai un fichier avec une feuille "sommaire" avec des recettes marquées dans plusieurs colonne.

Chaque cellule possède un lien qui renvoie vers la feuille de la recette.

Dans ces feuille recette, il y a dans la colonne E la liste des ingrédients.

Ma demande :

Je voudrais, sur la feuille "sommaire" mettre en place une cellule recherche qui chercherait ce mot dans toutes les colonne E de chaque feuille.

Je voudrais aussi, que sur cette même feuille "sommaire" la case de la recette soit mise en couleur.

Je vous ai joint une version allégée du fichier.

Merci a vous

Bonjour toutes et tous

une petite recherche ici http://boisgontierjacques.free.fr/pages_site/cellules.htm merci à Jacques Boisgontier

fonctionne pour l'onglet Sommaire à améliorer sans doute

-création d'une textbox1, listbox1 et bouton de commande

dans la textbox1 le mot a rechercher peut importe ou il se trouve dans l'onglet Sommaire, la listbox affiche tout les mots correspondants

on clic sur le bouton Ok on clic sur le choix e la listbox1 si d'autres occurrences trouvées

possible d'effectuer un double clic gauche sur cette textbox1 afin d'effacer

crdlt,

André

bonjour Andre

Je vous remercie pour votre réponse mais ce n'est pas exactement ce que je voulais faire.

Je voudrais que le mot que je rentre dans la barre de recherche soit rechercher dans la colonne de E de chaque feuille et que le résultat fasse ressortir le nom de la recette en couleur sur la feuille sommaire.

Et avec mon niveau, je ne vois pas comment je peux modifier votre maccro.

Merci pour votre aide.

Bonjour toutes et tous

Merci du retour, je câle pour les colonnes E de chaque feuilles du classeur et adapter le code pas évident grr

bon en attendant, une inspiration de Pijaku merci à Pijaku

' url ici https://forum.excel-pratique.com/viewtopic.php?f=2&t=137768

ci-joint

Notes:

1) j'ai supprimé la listbox1 de la feuille Sommaire

2) on peut supprimer l'onglet TEST (s'était juste pour effectuer un test)

Important : pour le Bouton Private Sub B_ok_Click() ne pas oublier si textbox est vide

Private Sub B_ok_Click()
On Error GoTo 0
If TextBox1.Value = "" Then
MsgBox "textbox vide"
Exit Sub
End If
Dim collRanges As New Collection, item As Variant, rngActive As Range
    Set rngActive = ActiveCell
    Set collRanges = ChercheRange(ThisWorkbook, Worksheets("Sommaire").TextBox1.Value, "Feuil2")
    For Each item In collRanges
        Application.Goto item
        item.Font.ColorIndex = 3
Next item
    If ActiveCell = rngActive Then MsgBox "La référence : " & Worksheets("Sommaire").TextBox1.Value & " n'a pas été trouvée"

End Sub

crdlt,

André

Bonjour Damien7338, André13

Une proposition sans macro avec MFC et liaison feuilles Recette vers Feuille Sommaire.

Voir notes en rouge sur Sommaire. Pour adaptation aux feuilles suivantes.

Quelques exemples faits.

Bons tests, bonne continuation.

merci X cellus

c'est parfait.

Merci a tous pour votre aide.

Bonne soirée à vous.