Rechercher une valeur dans des feuilles Excel

Bonsoir à tous,

Je fais un classeur Excel et je cherche à faire une code de recherche.

je cherche a crée un bouton rechercher

( quand j'entre une valeur dans la cellule E13 jeune puis cliquer sur bouton pour trouver la valeur )

Merci d'avance pour votre aide.

Bonsoir dreamsodfa,

Voici un code a appliquer a ton bouton :

Sub Bouton1_Cliquer()
Dim Ws As Worksheet
Dim msg As String

    Vl = Sheets("Recherche").Cells(13, 5)

    For i = 1 To ThisWorkbook.Worksheets.Count - 1
        Set d = Sheets("Feuil" & i).Cells.Find(Vl, lookat:=xlWhole)
        If Not d Is Nothing Then
            If msg = "" And Not d Is Nothing Then
                msg = "Trouvé dans la feuille: " & Sheets("Feuil" & i).Name & " , dans la cellule: " & d.Address & Chr(10)
            ElseIf msg <> "" And Not d Is Nothing Then
                msg = msg & "Trouvé dans la feuille: " & Sheets("Feuil" & i).Name & " , dans la cellule: " & d.Address & Chr(10)
            End If
        End If
    Next i

    If msg <> "" Then MsgBox msg
End Sub

Bonsoir à tous,

Merci pour votre aide

je suis débutant dans VBA,

désolée j'ai fait une erreur et je vien de la corriger

j'ai remplacé la cellule E13 par zone de texte

merci de bien m'orienter

voir fichier ci joint

bonjour à tous et à toutes

je cherche toujours une réponse

Je fais un classeur Excel et je cherche à faire une code de recherche.

je cherche a crée un bouton rechercher

( quand j'entre un texte dans la zone de texte

puis cliquer sur bouton recherche pour accéder directement a la feuille ou se trouve ce texte )

voir fichier ci joint

Merci d'avance pour votre aide.

Bonjour dreamsodfa ,

Bonjour Florian53

ce que je veut précisément ,c accéder a la feuille la ou se trouve le texte rechercher

( quand j'entre un texte dans la zone de texte

puis cliquer sur bouton recherche pour accéder directement a la feuille ou se trouve ce texte )

Merci d'avance pour votre aide.

Bonjour essaye ceci

Bonjour GGautier

j'ai bien aimé votre idée

je veux que le chercher soi sur l'un des feuilles de mon choix par exemple (feuil1 & feuil2)

accéder a la feuille la ou se trouve le texte rechercher

Merci d'avance pour votre aide.

voilà quelque chose d'adapté, à toi de jouer avec les valeur de i qui correspondent au feuilles dans lesquelles tu veux effectuer la recherche :

Sub Rechercher()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String

Nom = InputBox("Nom à chercher dans toutes les feuilles", "Rechercher")
If Nom <> "" Then

    For i = 2 To 3
    Set Sh = Worksheets(i)

        Set c = Sh.Cells.Find(Nom, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Sh.Activate
            c.Select
            firstAddress = c.Address
            Do
                MsgBox Sh.Name & "!" & c.Address
                Set c = Sh.Cells.FindNext(c)
                c.Select
            Loop While Not c Is Nothing And c.Address <> firstAddress
            Set c = Nothing
        End If
    Next i
End If
End Sub 

Voilà encore autre chose si tu change régulièrement les feuilles dans lesquelles tu veux effectuer ta recherche

Rebonjour GGautier

comment ajouter une Ligne sur se code pour spécifier les feuille ou je veut effectuer la recherche pour accéder directement

Merci

Sub Rechercher()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String

Nom = InputBox("Nom à chercher dans toutes les feuilles", "Rechercher")
If Nom <> "" Then
    For Each Sh In ThisWorkbook.Worksheets
        Set c = Sh.Cells.Find(Nom, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Sh.Activate
            c.Select
            firstAddress = c.Address
            Do
                MsgBox Sh.Name & "!" & c.Address
                Set c = Sh.Cells.FindNext(c)
                c.Select
            Loop While Not c Is Nothing And c.Address <> firstAddress
            Set c = Nothing
        End If
    Next Sh
End If
End Sub

Regarde mon poste de 13h45

Tu as une ligne avec

For i = 2 to 3

. Si tu met for i = 2 to 5 la recherche se fera sur les feuilles 2 à 5 comprise !

Regarde ça, Bon weekend

merci de votre patience avec moi GGautier

comme tu vois je suis débutant

la formule que tu ma envoyer dans le poste de 13h45 c bien ça se que je veux mais j'ai pas pus effectuer la cherche.

voir fichier ci joint

Merci

Ah tu regardé mon dernier poste, dans première liste tu choisis les feuilles sur lesquelles tu veux faire ta recherche, tu tape ensuite dans la zone de texte le terme que tu veux trouver dans les feuilles sélectionnées puis quand tu clic sur le bouton recherche tu trouve les lien de là où se trouve le terme trouver. Tu clic sur le "lien" et ça t'emmène la où est le résultat sur la où les feuilles en question.

Je ne pourrais pas te dépanner sur le weekend je n'ai pas mon Pc avec moi, je te répond via mon tel

Bon weekend