Recherche de mots dans classeurs fermés

[user-XL]

Bonjour,
j'ai differents classeur nommé classeur-A,classeur-B et ce jusqu'a Z, tous dans le meme repertoire.
Dans chaque classeur j'ai des mots dans chaques cellules de la premiere colonne qui commencent par la meme lettre du classeur.
Ex: Classeur-C, mots: Chien Chat Cheval,etc
Ce que je voudrais faire c'est faire une recherche exacte d'un mot avec boite de saisie dans le classeur correspondant et ce automatiquement et si possible sans ouvrir 1000 fenetres.
Par exemple si je tappe Arbre dans la boite de saisie ca detecte que c'est dans le classeur-A qu'il faut chercher et un message s'affiche et me dit Arbre trouvé, si il trouve pas Arbre mais Arbres il ne faut pas que ca soit pris en compte.
D'avance merci pour votre aide car je debute en excel et je ne suis pas calé !

 

[Myta]

Salut user-XL

Vite fait sans tester sur 26 fichiers

regarde avec cette Macro si cela pourrait te convenir

Option Explicit

Sub Rech_fich_fermer()
'
' Macro recherche sur classeurs fermés
' Macro créée le 22/12/2003 par Mytå
' Pour http://www.excel-downloads.com/html/French/forum/messages/1_62585_62585.htm

'Initialisation des variables
Dim Repertoire As String
Dim Fichier As String
Dim valeur

'Lecture du mot par Inputbox
Dim Message As String, Reponse As String
' Définit le message.
Message = "Entrez le mot à rechercher"

Reponse = InputBox(Message)

Repertoire = ActiveWorkbook.Path
Fichier = Repertoire & "\" & UCase(Left(Reponse, 1)) & ".xls"

Workbooks.Open Filename:=Fichier

On Error GoTo Erreur

valeur = Application.WorksheetFunction _
.Match(Reponse, Worksheets(1).Range("A1:A100"), 0)

Workbooks("Classeur1.xls").Activate

Workbooks(UCase(Left(Reponse, 1)) & ".xls").Close SaveChanges:=False

MsgBox (Reponse & " a été trouvé dans " & Fichier)

Exit Sub

Erreur:

Workbooks(UCase(Left(Reponse, 1)) & ".xls").Close SaveChanges:=False
MsgBox (Reponse & " n'a pas été trouvé dans " & Fichier)

End Sub

Mytå

 

[Charlie]

Bonjour,

Je ne sais pas si cela répond exactement à la question mais une mise en forme conditionnelle peut également faire l'affaire.

Mot à tester en A1 de la feuille1
Listes de mots en feuilles a, b, c, ... colonne A

Menu Format - Mise en forme conditionnelle - Condition 1 : la formule est : =ESTTEXTE(RECHERCHEV(A1;INDIRECT(GAUCHE(A1;1)&"!A:A");1;0)) - Format : au choix - OK - OK

Charlie