Recherche dans toutes les feuilles

bonjour à tous !

Je suis nul en Vba et je cherche à créer une macro qui cherche si une correspondante à l'attendu est présente dans une des pages de mon fichier Excel.

Je cherche à ce que la recherche se fasse pour les donnés de la colonne H sur toutes les pages dont le nom commence par "Prog".

Est ce que quelqu'un pourrait m'aiguiller sur la démarche à suivre ?

Merci d'avance !

Bonjour,

Essayez ceci, lancez la macro, une boîte de dialogue s'ouvre et inscrivez la valeur à rechercher. Si la valeur est trouvée dans une des feuilles, la macro s'arrête st affiche la feuille et la cellule contenant la valeur recherchée.

Sub Recherche()
    Dim i As Long
    Dim x As Range
    Dim Valeur As String
    Application.ScreenUpdating = False
    Valeur = InputBox("Inscrivez la valeur à rechercher", "Valeur recherchée")
    For i = 1 To Sheets.Count
        If Left(Sheets(i).Name, 4) = "Prog" Then
            With Sheets(i).Cells
                Set x = .Find(Valeur)
                If Not x Is Nothing Then
                    Sheets(i).Select
                    Cells(x.Row, x.Column).Select
                    Exit Sub
                End If
            End With
        End If
    Next i
End Sub

Cdlt

Bonjour,
Peux-tu indiquer la version Excel utilisée dans ton profil ?
(2007, ..., 2013, ..., 2021 ou 365)
Cdlt.

Bonjour et merci pour vos réponses, je testerais ce code demain merci ! Et pour la version c'est 365 :)

Re,
C'est bien...
Tu inscris ta version Excel dans ton profil et tu joins un fichier.
Ceci pour une aide adaptée du forum en fonction de ta version Excel.
Cdlt.