Lister les onglets où une référence est présente

Bonjour à tous,

Je cherche mais ne trouve pas (Grrr....)

Y-a-t-il un moyen de lister les onglets où une référence est présente.

Explications :

Tous les onglets ont une matrice identique.

Dans l'onglet RECAP, j'inscris une référence en A3 et je souhaiterai que tous les onglets où sont présentes cette référence soit listés à savoir de la colonne A6 à A.....

Ci-joint exemple fichier

15test-1.xlsx (11.15 Ko)

Bonjour,

Sur base de ton fichier, essaie comme ceci :

Sub chercheref()
'Macro Dan
Dim sh As Byte
Dim lg As Integer
With Sheets("RECAP")
    .Range("A6:A" & .Range("A" & .Rows.Count).End(xlUp).Row).ClearContents
    ref = .Range("A3")
End With
For sh = 1 To ThisWorkbook.Sheets.Count
    If Sheets(sh).Name <> "RECAP" Then
    On Error Resume Next
        lig = Sheets(sh).Cells.Find(ref, LookIn:=xlValues, LookAt:=xlWhole)
        If lig > 0 Then
            With Sheets("RECAP")
                lg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
                .Range("A" & lg) = Sheets(sh).Name
            End With
        End If
    End If
Next
End Sub

Oublie pas d'enregistrer le fichier avec l'extension XLSM

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse

Cordialement

Merci DAN,

Comme d'habitude efficacité totale...

Rechercher des sujets similaires à "lister onglets reference presente"