From: "tiger"<tiger@easynet.fr> 
Newsgroups: microsoft.public.fr.excel
Subject: Recherche liens
Date: Sat, 25 Sep 1999 12:28:12 +0200
Organization: [Posted via] Easynet France
Lines: 77
Message-ID: <7si8lb$1jcs$1@buggy.easynet.fr>
NNTP-Posting-Host: pop-nice-198.pops.easynet.fr
X-Trace: buggy.easynet.fr 938255852 52636 195.114.95.198 (25 Sep 1999 10:37:32 GMT)
X-Complaints-to: abuse@easynet.fr
NNTP-Posting-Date: 25 Sep 1999 10:37:32 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2014.211
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
Path: cppssbbsa01.microsoft.com!news-out.cwix.com!newsfeed.cwix.com!news.belnet.be!colt.net!newsfeed.icl.net!oleane!ciril.fr!easynet-fr!buggy.easynet.fr!not-for-mail
Xref: cppssbbsa01.microsoft.com microsoft.public.fr.excel:14348


Bonjour à tous,

Avec le code macro suivant qui fonctionne sous Excel97 j'aimerais que dans
une feuille suppl&eacute;mentaire du classeur nomm&eacute; par exemple "TEMP"
apparaissent les noms des feuilles et les r&eacute;f&eacute;rences des cellules dans
lesquelles est contenu le lien recherch&eacute;. Ce qui me permettrait de localiser
plus rapidement les feuilles en cas de gros classeur.


D'avance merci pour votre aide

tiger

r&eacute;ponse dans le groupe



Sub Marquage_lien_unique_dans_classeur()


dim ref As String
dim sh As Worksheet
dim d&eacute;but, fin As double
dim cellule As range

application.screenupdating = false
d&eacute;but = Time

ref = inputbox("Entrer le nom du classeur li&eacute; à rechercher" & Chr(13) &
Chr(13) & _
"sans ajouter le suffixe .xls", "Recherche de lien")
if ref = "" then Exit Sub

for each sh In activeworkbook.worksheets
sh.Activate
if activesheet.ProtectContents then
activesheet.Unprotect
end if
ActiveWindow.Zoom = 50

for each cellule In cells.Specialcells(xlformulas)
if cellule.formula Like "*" & ref & ".xls" & "*" then


with cellule.Borders
.LineStyle = xlDashdotdot
.Weight = xlMedium
.ColorIndex = 26
end with

'cellule.Interior.ColorIndex = 26 'violet

end if


next cellule
next sh
application.screenupdating = true
application.Goto sheets(1).range("a1"), true

Beep

fin = Time
msgbox "Dur&eacute; d'ex&eacute;cution de la macro : " & _
format(fin - d&eacute;but, "s") & " seconde(s)."

'.ColorIndex = 7 'fuschia
'.ColorIndex = 22 'brique
'.ColorIndex = 24 'violet
'.ColorIndex = 28 'turquoise
'.ColorIndex = 38 'rose

end Sub