OVH Cloud OVH Cloud

Liens entre feuilles

9 réponses
Avatar
Trouvetout
Bonjour,

Quelqu'un pourrait-il me dire comment sur Excel 2000 l'on peut retrouver
tous les liens d'une feuille à une autre, afin de ganer du temps pour la
recherche d'un lien qui n'aboutit plus.(Feuille effacée, autre lecteur
débranché etc...)

Merci d'avance

Trouvetout

9 réponses

Avatar
nospam-Awerel
bonjour

Essaie de faire Édition / Liaisons qui doit alors apparaître en grisé
accessible...

à+
Antoine
"Trouvetout" a écrit dans le message de news:

Bonjour,

Quelqu'un pourrait-il me dire comment sur Excel 2000 l'on peut retrouver
tous les liens d'une feuille à une autre, afin de ganer du temps pour la
recherche d'un lien qui n'aboutit plus.(Feuille effacée, autre lecteur
débranché etc...)

Merci d'avance

Trouvetout



Avatar
Philippe Noss
Bonjour
Dans Exoutils, on peut chercher la formuule, le nom ou l'objet qui
génére une liason
Voir le document Exemple exoutils


http://nossphil.perso.cegetel.net/exoutils.html
Avatar
michdenis
Bonjour Philippe,

Que tu fasses la promotion de ton site internet dans ta signature des réponses que tu émets sur ce forum ne me dérange aucunement.
Cependant, si tu as des réponses concrètes à fournir aux demandeurs, ces dernières devraient être accessibles ici même, sur ce
forum, à tous les usagers, sans avoir besoin pour cela de télécharger une application via un site internet ... d'en faire
l'installation ... etc .
C'est là me semble-t-il l'essence même d'un forum de discussion.


Salutations!



"Philippe Noss" a écrit dans le message de news:
Bonjour
Dans Exoutils, on peut chercher la formuule, le nom ou l'objet qui
génére une liason
Voir le document Exemple exoutils


http://nossphil.perso.cegetel.net/exoutils.html
Avatar
michdenis
Bonjour TrouveTout,

Tu peux essayer ceci, c'est une procédure signée Frédéric Sigonneau parue sur ce forum :

'-------------------------------------------
Sub RecapLiaisonsEntreFeuilles()
'renvoie dans un nouveau classeur l'adresse des cellules liées
'à d'autres feuilles du classeur et le nom de la feuille source
Dim Arr() As Variant, cell As Range, sht As Worksheet, NLien&
Dim FSrc$

NLien = 0
For Each sht In ActiveWorkbook.Worksheets
sht.Activate
For Each cell In sht.UsedRange
GoSub FeuilleSource
If FSrc <> "" Then
NLien = NLien + 1
ReDim Preserve Arr(1 To 2, 1 To NLien)
Arr(1, NLien) = sht.Name & " " & cell.Address
Arr(2, NLien) = FSrc
End If
Next cell
Next sht

If NLien = 0 Then
MsgBox "Aucune liaison entre les feuilles de " _
& ActiveWorkbook.Name
Exit Sub
End If

Workbooks.Add
Range("A1").Value = "Cellule liée :"
Range("B1").Value = "Feuille source :"
With Range("A1:B1")
.Font.Bold = True
.Interior.ColorIndex = 35
End With

For i = 1 To UBound(Arr, 2)
Cells(i + 1, 1).Value = Arr(1, i)
Cells(i + 1, 2).Value = Arr(2, i)
Next
Columns("A:B").AutoFit
Range("A2:B" & NLien + 1).Sort Range("A2")
Exit Sub

FeuilleSource:
FSrc = ""
If InStr(1, cell.Formula, "!") > 0 Then
FSrc = Mid(Split(cell.FormulaLocal, "!")(0), 2)
End If
Return
End Sub 'fs
'-------------------------------------------


Salutations!



"Trouvetout" a écrit dans le message de news:
Bonjour,

Quelqu'un pourrait-il me dire comment sur Excel 2000 l'on peut retrouver
tous les liens d'une feuille à une autre, afin de ganer du temps pour la
recherche d'un lien qui n'aboutit plus.(Feuille effacée, autre lecteur
débranché etc...)

Merci d'avance

Trouvetout
Avatar
Philippe Noss
Bonjour Michdenis
Je pense que ma réponse est une réponse concréte !
exemple
http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/2 599722432f25360/dbfd1edc634f10ca?hl=fr#dbfd1edc634f10ca
Je ne peux pas publier le code des 3 fonctionnalités d'exoutils qui
permettent de touver les liens dans les noms, les formules ou les objet
d'une feuille.
Sans oublier que certains utilisateurs ne savent pas implementer ou
adapter une solution qui se base sur VBA !
Quant à l'esprit du forum, je pense que je le respecte, le code
d'exoutils étant entiérement disponible !
(A ce sujet, si des contibuteurs veulent participer au developpement
d'exoutils, je suis plus que preneur. J'aimerai que cet outil soit
"open source"...)
Enfin derniere remarque sur ta solution : cela fonctionne si le lien
est sur des formules mais pas si le lien se trouve sur des nom ou des
objets !
Avatar
Trouvetout
Merci à tous,

La commande Edition Liaison proposé par Awerel me suffit, car je ne suis pas
très fort sur Excel.

Encore Merci

Trouvetout


"michdenis" a écrit dans le message de news:
u1$
Bonjour TrouveTout,

Tu peux essayer ceci, c'est une procédure signée Frédéric Sigonneau parue
sur ce forum :

'-------------------------------------------
Sub RecapLiaisonsEntreFeuilles()
'renvoie dans un nouveau classeur l'adresse des cellules liées
'à d'autres feuilles du classeur et le nom de la feuille source
Dim Arr() As Variant, cell As Range, sht As Worksheet, NLien&
Dim FSrc$

NLien = 0
For Each sht In ActiveWorkbook.Worksheets
sht.Activate
For Each cell In sht.UsedRange
GoSub FeuilleSource
If FSrc <> "" Then
NLien = NLien + 1
ReDim Preserve Arr(1 To 2, 1 To NLien)
Arr(1, NLien) = sht.Name & " " & cell.Address
Arr(2, NLien) = FSrc
End If
Next cell
Next sht

If NLien = 0 Then
MsgBox "Aucune liaison entre les feuilles de " _
& ActiveWorkbook.Name
Exit Sub
End If

Workbooks.Add
Range("A1").Value = "Cellule liée :"
Range("B1").Value = "Feuille source :"
With Range("A1:B1")
.Font.Bold = True
.Interior.ColorIndex = 35
End With

For i = 1 To UBound(Arr, 2)
Cells(i + 1, 1).Value = Arr(1, i)
Cells(i + 1, 2).Value = Arr(2, i)
Next
Columns("A:B").AutoFit
Range("A2:B" & NLien + 1).Sort Range("A2")
Exit Sub

FeuilleSource:
FSrc = ""
If InStr(1, cell.Formula, "!") > 0 Then
FSrc = Mid(Split(cell.FormulaLocal, "!")(0), 2)
End If
Return
End Sub 'fs
'-------------------------------------------


Salutations!



"Trouvetout" a écrit dans le message de news:

Bonjour,

Quelqu'un pourrait-il me dire comment sur Excel 2000 l'on peut retrouver
tous les liens d'une feuille à une autre, afin de ganer du temps pour la
recherche d'un lien qui n'aboutit plus.(Feuille effacée, autre lecteur
débranché etc...)

Merci d'avance

Trouvetout





Avatar
ClémentMarcotte
Bonjour,

Que tu fasses la promotion de ton site internet dans ta signature des
réponses que tu émets sur ce forum ne me dérange aucunement.

Cependant, si tu as des réponses concrètes à fournir aux demandeurs, ces
dernières devraient être accessibles ici même, sur ce

forum, à tous les usagers, sans avoir besoin pour cela de télécharger une
application via un site internet ... d'en faire

l'installation ... etc .
C'est là me semble-t-il l'essence même d'un forum de discussion.



Encore qu'on se demande si sa "production" n'est pas juste un copier-coller
des réponses obtenues ici et qu'il cheche à le dissimuler en compliquant
l'accès à ses réponses.

Puis, son produit supposément gratuit plante à la centième ouverture.

Alors qu'Excelabo et la FAQ donnent un libre accès permanent et respectent
pleinement le nom des auteurs.

Avatar
ClémentMarcotte
Et puis, comme il est "plonké", je ne verrai pas la réponse du spammer, s'il
y en a une.

"ClémentMarcotte" a écrit dans le message de
news:
Bonjour,

Que tu fasses la promotion de ton site internet dans ta signature des
réponses que tu émets sur ce forum ne me dérange aucunement.

Cependant, si tu as des réponses concrètes à fournir aux demandeurs, ces
dernières devraient être accessibles ici même, sur ce

forum, à tous les usagers, sans avoir besoin pour cela de télécharger
une


application via un site internet ... d'en faire
l'installation ... etc .
C'est là me semble-t-il l'essence même d'un forum de discussion.



Encore qu'on se demande si sa "production" n'est pas juste un
copier-coller

des réponses obtenues ici et qu'il cheche à le dissimuler en compliquant
l'accès à ses réponses.

Puis, son produit supposément gratuit plante à la centième ouverture.

Alors qu'Excelabo et la FAQ donnent un libre accès permanent et respectent
pleinement le nom des auteurs.





Avatar
Philippe Noss
toujours aussi sympathique !
Je n'ai meme pas envie de polémiquer !
je continuerais a intervenir sur ce forum, je prends note des remarques
constructives, et pas des insinuations insultantes.

Exoutils est gratuit, il n'y a plus de blocage encore faut il utiliser
la dernière version 2006. Le code n'est pas protégé
A bientot, pusiqu'on me suit à la trace...