Bouton commande de recherche

[Reidid78]

Bonjour,bonsoir le forum,

je suis nouveau sur ce forum et débutant,
j'ai vue et pris l'idée d'un bouton de commande de recherche que j'ai copier dans classeur Excel 2007 (mais enregistrer en 97-2003)
mais voila sa ne fonctionne pas et je ne trouve pas le problème 🙁
merci a vous de me venir en aide 😱
je joint mon fichier

 

[Grand Chaman Excel]

Re : Bouton commande de recherche

Bonjour Reidid78 et bienvenue sur le forum,

Le problème que je vois dans le fichier que tu as joint est que ta plage de recherche est D7😀16. Or tu as des cellules fusionnées. Dans ce cas, tu doit modifier ta plage de recherche pour D7:E16.

À essayer.

 

[Reidid78]

Re : Bouton commande de recherche

Ok merci grand chaman je vais essayer 😉

 

[Reidid78]

Re : Bouton commande de recherche

bonjour forum,

désolé j'ai pas trouvé la solution je n'est pas assez d’expérience 🙁
si quelqu’un pouvez l’expliqué la démarche a suivre sa serai sympa
d'avance merci de vos réponses 🙂

 

[Grand Chaman Excel]

Re : Bouton commande de recherche

Bonjour Reidid78,

Voici ton code modifié, à tester :
Remarque que ça fait une recherche uniquement sur une très petite plage dans la Fiche de Présentation.
Aussi, dans ton fichier, l'onglet "Rapport 2013" n'est pas là, ce qui donne une erreur dans ton code et donc ça s'en va directement à Fin: . J'ai sauté cette partie de code.

Sub recherche(mot)
On Error GoTo fin
Set ws = Worksheets("Fiche de Présentations")
With ws.Range("D7:E16")     'Modifier la plage de recherche au besoin
    trouve = False      '***
    Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        trouve = True   '***
        firstAddress = c.Address
        Do
            With Sheets("Moteur de recherche")
                .Hyperlinks.Add Anchor:=.[A65000].End(xlUp).Offset(1, 0), Address:="", SubAddress:="'" & ws.Name _
                    & "'!" & c.Address, TextToDisplay:="" & c.Value
            End With
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    'trouve = True
    End If
End With

'Cette partie ne peut pas fonctionner car la feuille "Rapports 2013" n'est pas dans ton fichier
' on la saute pour l'instant.
GoTo Suite

Set ws = Worksheets("Rapports 2013")
With ws.Range("D7:D16") 'Cette plage aussi doit être modifiée
    Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        trouve = True   '***
        firstAddress = c.Address
        Do
            With Sheets("Moteur de recherche")
                .Hyperlinks.Add Anchor:=.[A65000].End(xlUp).Offset(1, 0), Address:="", SubAddress:="'" & ws.Name _
                    & "'!" & c.Address, TextToDisplay:="" & c.Value
            End With
        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    trouve = True
    End If
End With

Suite:
If Not trouve Then MsgBox ("Pas de " & mot & " trouvé dans ce fichier")
fin:
End Sub

A essayer

 

[Reidid78]

Re : Bouton commande de recherche

Bonjour,Grand Chaman Excel
encore merci pour ton nouveau message 😀
j'ai essayer ton code qui ne fonctionne pas non plus,enfin en espèrent que sa ne sois pas moi qui me suis trompé😕, pour ce qui est de l'onglet "rapport 2013" c'est normal qu'il ne sois pas là c'est un code que j'ai récupérer sur une autre feuille 🙁 pas bien je sais mais c'est pour essayer d'apprendre et de comprendre ce qui n'est pas le cas lol 🙁 au niveau de ta phrase (recherche uniquement sur une très petite plage dans la Fiche de Présentation)
c'est normal mon fichier été trop grand pour être envoyer j'ai du réduire le nombre de pages.
je me demande si il ne serai pas mieux de refaire tout a zéro mais bon j'y comprend rien dommage.
en tout cas encore merci pour ton aide et ta patience 😉 et bon week-end