Moteur de recherche excel, problème de mise en forme

[barbalex]

Bonjour,

Je suis étudiant et dans le cadre de mon stage dans une mairie, j'ai eu une petite mission où je devais créer un moteur de recherche sur le classeur excel de l'inventaire des différents documents.
J'ai trouvé le code sur ce forum et je l'ai modifié pour parvenir à mes fins.
L'outil marche parfaitement et m'envoie vers des liens hypertexte sur les différentes pages des mots clés trouvés.
Mais dès lors que je change la mise en forme (agrandissement de la cellule des liens hypertexte, renommage des feuilles du classeur...) il s'affiche une boite de dialogue avec écrit : "Référence non valide".
Je ne souhaiterai pas leur rendre un fichier brut, c'est pour ça que je fais appel à vos compétences

Voici le code du bouton d'action :

Sub Bouton1_Clic()
reponse = InputBox("Mot a chercher")
If reponse = "" Then
MsgBox ("Vous devez saisir au moins un mot !!!")
Exit Sub
End If
Range("A9:A" & Range("A65536").End(xlUp).Row).ClearContents
Call recherche(reponse)
End Sub

Voici le code de la macro rechercher :

Sub recherche(mot)
ligne = 9
For Each ws In Sheets
If ws.Name <> "Menu" Then
With ws.Cells
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("Menu").Cells(ligne, 1).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value
ligne = ligne + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
trouve = True
End If
End With
End If
Next ws
If Not trouve Then MsgBox ("Pas de " & mot & " trouvé dans ce fichier")
Range("A9").Select
End Sub

Merci d'avance

 

[kjin]

Re : Moteur de recherche excel, problème de mise en forme

Bonjour et bienvenue,
Dans la fenêtre VBE, dans le menu Références, as tu des références marquées "Manquant" ?
A+
kjin

 

[barbalex]

Re : Moteur de recherche excel, problème de mise en forme

Bonjour kjin,
Je n'ai que 4 références de cochées :
- Visual Basic for Application
- Microsoft Excel 12.0 Oblect Library
- OLE Automation
- Microsoft Office 12.0 Oblect Library

Est-ce d'ici d'où vient le problème ?

 

[kjin]

Re : Moteur de recherche excel, problème de mise en forme

Bonjour,
Non, c'est moi qui n'aies pas lu correctement ta question, j'ai cru que c'était une erreur VBA
En fait, si tu renommes tes feuilles, il est normal que tes liens hypertextes ne fonctionnent plus puisque de fait leur référence n'existe plus
A+
kjin

 

[barbalex]

Re : Moteur de recherche excel, problème de mise en forme

Si je comprends bien, je dois refaire tout le classeur avec la mise en forme avant et seulement en dernier je ferai le moteur de recherche ?

 

[kjin]

Re : Moteur de recherche excel, problème de mise en forme

Re,

en dernier je ferai le moteur de recherche ?

Comprends pas !
A chaque nouvelle recherche, le nom des feuilles sera pris en compte
Par contre, les liens existants ne fonctionneront pas si entre temps tu renommes les feuilles
Mais c'est un moteur de recherche...
A+
kjin

 

[barbalex]

Re : Moteur de recherche excel, problème de mise en forme

Re,
Ok j'ai pigé pour le nom des feuilles
Mais ça se produit la même chose lorsque j'agrandi la colonne des liens hypertexte, la colonne A de ma feuille Menu. C'est le même probleme ?

 

[kjin]

Re : Moteur de recherche excel, problème de mise en forme

Re,

Mais ça se produit la même chose lorsque j'agrandi la colonne des liens hypertexte, la colonne A de ma feuille Menu. C'est le même probleme ?

Bé là je m'estoune...et je ne peux rien pour toi
Qu'entends tu par agrandir ?
A+
kjin

 

[tototiti2008]

Re : Moteur de recherche excel, problème de mise en forme

Bonjour barbalex, Bonjour kjin,

Bé là je m'estoune...et je ne peux rien pour toi
Qu'entends tu par agrandir ?

Mais si, c'est clair, en colonne A de la feuille Menu... tu ne la vois pas ?
Ah ben non, moi non plus, désolé...

 

[barbalex]

Re : Moteur de recherche excel, problème de mise en forme

Et bien j'agrandi la largeur de la colonne afin que lorsqu'il y ait beaucoup de caractères pour le lien hypertexte, je puisse cliquer partout et pas seulement sur la cellule de largeur 10.71.