XL 2019 Récupérer le nom d'une feuille où se trouve une valeur précise

[Winnylourson]

Bonjour à la communauté!

J'ai une 1ere feuille listant la totalité des clients. Ces derniers sont dispatchés dans les autres feuilles. Pour chaque cellule de la colonne 1 de la feuille 1, je cherche à récupérer le nom de la feuille où se trouve cette même valeur.

Auriez-vous une idée SVP?

En vous remerciant pour votre aide!

 

[crocrocro]

Bonjour Winny,
voici un code (à insérer dans un module VBA et bien sûr transformer la feuille en xlsm) qui place en colonne (à partir de la colonne F), au regard de chaque client le nom de la feuille où il est trouvé.
dans la feuille HIT PARADE CLIENTS 2023_2024, il y a ds blancs à la fin des noms !!!
il faut les supprimer -> Remplacer un blanc par vide

Sub ListeOnglets()
Dim WS As Worksheet
Dim i As Integer, j As Integer, k As Integer, DerLigne As Integer, DerLigne2 As Integer
Dim NomClient As String
Dim CellulClient As Range
    Sheets("HIT PARADE CLIENTS 2023_2024").Activate
    With ActiveSheet
        DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row '
        For i = 2 To DerLigne
            NomClient = .Cells(i, 1)
            col = 6 ' F : 1ère colonne où on écrit la feuille où on a trouvé le client
            For Each WS In ThisWorkbook.Worksheets
                If WS.Name <> ActiveSheet.Name Then
                    DerLigne2 = WS.Cells(Rows.Count, 1).End(xlUp).Row '
                    Set CellulClient = WS.Range("A2:A" & DerLigne2).Find(NomClient)
                    If Not CellulClient Is Nothing Then
                        'Renvoie le nom de chaque feuille pour chaque client
                        .Cells(i, col) = WS.Name
                        col = col + 1
                    End If
                End If
            Next WS
        Next i
    End With
End Sub

 

[vgendron]

bonjour

voir essai en PJ
le nom des feuilles est mis dans la colonne F
si le client n'est pas trouvé, il est noté "Introuvable"

 

[Winnylourson]

Merci à vous 2 pour ces 2 propositions!

Vgendron, ça fonctionne nickel!

 

[Lolote83]

Bonjour,
En espérant avoir bien compris la consigne
Clic sur bouton GO
@+ Lolote83

 

[Winnylourson]

Merci Lolote! Ca fonctionne nickel également!