Recherche renvoyant le nom de la feuille

Le 24/11/2022 à 12:41

bonjour,

J'ai une liste sur une feuille et je voudrais faire une recherche sur plusieurs feuilles afin déterminer sur quelle feuille se trouve l'élément recherché.
Pouvez-vous, svp, m'aider?
Dans le fichier ci-joint, j'ai donné en cellule C4 le résultat attendu.

17identifier-l-onglet-dans-lequel-se-trouve-une-valeur.xlsx (12.40 Ko)

Merci d'avance,
Cordialement,

Le 24/11/2022 à 13:37

Bonjour Ali

Avec une petite fonction personnalisée à mettre dans un module

Function NomFeuille(sCrit As String)
  Dim Sht As Worksheet
  Dim RngF As Range
  Application.Volatile
  For Each Sht In ThisWorkbook.Sheets
    If Sht.Name = ActiveSheet.Name Then GoTo SuiteSht
    Set RngF = Sht.Cells.Find(What:=sCrit)
    If Not RngF Is Nothing Then NomFeuille = Sht.Name: Exit Function
SuiteSht:
  Next Sht
  ' Si rien trouvé
  NomFeuille = "#N/A"
End Function

Et qu'on appelle en mettant en C4