Fonction dictionnaire

[tralufr]

Bonjour,

je souhaiterais disposer d'une fonction "recherche de dictionnaire" à partir d'un fichier excel contenant des mots rangés pas ordre alphabétique. Chaque onglet contient une liste de mots (A, B, C...). Mon besoin est de créer un onglet supplémentaire me permettant de chercher via une macro un mot dans l'un des onglets et que excel :
- m'envoie directement dans l'onglet contenant le mot,
- m'indique le cas échéant par message, lorsque le mot n'existe pas dans l'ensemble de mes onglets.

En vous remerciant par avance,

cdt.

 

[BOISGONTIER]

Re : Fonction dictionnaire

Bonjour,

Sub chercheFindMultiFeuillesValeur()
  mot = InputBox("Mot cheché?")
  For Each s In ActiveWorkbook.Sheets
    Set c = Sheets(s.Name).Cells.Find(mot, LookIn:=xlValues)
    If Not c Is Nothing Then
      Application.Goto c
    End If
   Next s
 End Sub

JB
Formation Excel VBA JB