Plus ou moins HS Un defi pour les grosses tetes du forum
Le
rthompson
Bonjour
Ceci n'est pas une question urgente, loin de là
Hier soir en discutant avec mon boss autour d'une feuille Excel (sans
beaujolais, JPS n'étant pas là) une petite idée m'est venue
Nous travaillons, comme nombre d'entres vous, sur des fichiers remplis de
liens, des listest et des formules réferant à des cellules un peu partout
Chaque cellule "calculée" contient un petit commentaire avec l'explication,
l'origine etc
L'dée est la suivante
Serait-il possible via macro ou autre des créer un plan avec tous les liens,
réferences etc avec en prime le commentaire
Un peu comme en Access si vous voyez ce que je veux dire
Je ne sais pas si c'est faisable, et en plus je sais même pas si cela
serait utile
donc comme je l'ai dis
Rien d'urgent, juste un petit défi pour passer de bonnes fêtes de fin
d'année en excellant à son aise
A bientôt
Rex
PS pour Misange
Je constate avec plaisir que je fais toujours partie du Pantheon
Merci et Joyeux Noel
Rex
Ceci n'est pas une question urgente, loin de là
Hier soir en discutant avec mon boss autour d'une feuille Excel (sans
beaujolais, JPS n'étant pas là) une petite idée m'est venue
Nous travaillons, comme nombre d'entres vous, sur des fichiers remplis de
liens, des listest et des formules réferant à des cellules un peu partout
Chaque cellule "calculée" contient un petit commentaire avec l'explication,
l'origine etc
L'dée est la suivante
Serait-il possible via macro ou autre des créer un plan avec tous les liens,
réferences etc avec en prime le commentaire
Un peu comme en Access si vous voyez ce que je veux dire
Je ne sais pas si c'est faisable, et en plus je sais même pas si cela
serait utile
donc comme je l'ai dis
Rien d'urgent, juste un petit défi pour passer de bonnes fêtes de fin
d'année en excellant à son aise
A bientôt
Rex
PS pour Misange
Je constate avec plaisir que je fais toujours partie du Pantheon
Merci et Joyeux Noel
Rex
Poser une question
Sans étudier à fond ta question, c'est tou^-à-fait faisabel mais j'ai déjà
l'intime conviction que ce serait beaucoup de travail pour une utilité
discutable.
Bous avons quelques "esthètes" du code sur le forum que cela va peut-être
intéresser.
Moi j'ai pas vraiment le temps.
Je suivrai avec intérêt les autres réactions
A+
Paul V
"rthompson" news: %
"Paul V"
'--------------------------------------------------------
Sub test()
Dim Liens, Rg As Range, F As Range, x As Integer
Dim Sh As Worksheet, NomFeuille As String
Dim Feuille As Worksheet, DerLig As Long
Dim R As String
On Error Resume Next
Application.ScreenUpdating = False
NomFeuille = ActiveSheet.Name
Application.DisplayAlerts = False
Worksheets("Table des liens").Delete
Application.DisplayAlerts = True
Set Feuille = Worksheets.Add(After:=Sheets(Worksheets.Count))
With Feuille
.Name = "Table des liens"
.Range("A1") = "Nom du lien"
.Range("B1") = "Nom de la feuille"
.Range("C1") = "Adresse de la cellule"
.Range("D1") = "Commentaire"
.Range("A1:D1").Font.Bold = True
End With
Liens = ThisWorkbook.LinkSources
For Each lien In Liens
x = 0
R = "[" & Right(lien, Len(lien) - VBA.InStrRev(lien, "")) & "]"
For Each Sh In Worksheets
If Sh.Name <> "Table des liens" Then
DerLig = Feuille.Range("C65536").End(xlUp)(2).Row + IIf(x = 0, 1, 0)
If x = 0 Then
Feuille.Range("A" & DerLig) = lien
x = 1
End If
Feuille.Range("B" & DerLig) = Sh.Name
With Sh.UsedRange
Set F = .Find(What:=R, _
LookIn:=xlFormulas, SearchOrder:=xlByColumns)
If Not F Is Nothing Then
adr = F.Address
Do
Feuille.Range("C" & DerLig) = F.Address
Feuille.Range("D" & DerLig) = F.NoteText
DerLig = DerLig + 1
Set F = .FindNext(F)
Loop While Not F Is Nothing And F.Address <> adr
Else
Feuille.Range("B" & DerLig) = ""
End If
End With
End If
Next
Next
Feuille.Range("A1:C1").EntireColumn.AutoFit
Feuille.Range("D:D").WrapText = False
Sheets(NomFeuille).Select
End Sub
'------------------------------------------------
"rthompson" %
Bonjour
Ceci n'est pas une question urgente, loin de là
Hier soir en discutant avec mon boss autour d'une feuille Excel (sans
beaujolais, JPS n'étant pas là) une petite idée m'est venue
Nous travaillons, comme nombre d'entres vous, sur des fichiers remplis de
liens, des listest et des formules réferant à des cellules un peu partout
Chaque cellule "calculée" contient un petit commentaire avec l'explication,
l'origine etc
L'dée est la suivante
Serait-il possible via macro ou autre des créer un plan avec tous les liens,
réferences etc avec en prime le commentaire
Un peu comme en Access si vous voyez ce que je veux dire
Je ne sais pas si c'est faisable, et en plus je sais même pas si cela
serait utile
donc comme je l'ai dis
Rien d'urgent, juste un petit défi pour passer de bonnes fêtes de fin
d'année en excellant à son aise
A bientôt
Rex
PS pour Misange
Je constate avec plaisir que je fais toujours partie du Pantheon
Merci et Joyeux Noel
Rex
Et meric pour ta réponse RAPIDOS
Je n'ai pas le temps maintenant, mais je m'en occupe ce week end et je te
tiens au courant
A lundi
Rex
ET BON WEEK END
"MichDenis"
Liens = ThisWorkbook.LinkSources
Par :
Liens = ThisWorkbook.LinkSources(xlExcelLinks)
Car la procédure traite essentiellement des liaisons au
niveau des formules de la feuille de calcul.
Mais un fichier peut aussi être lié par un "NOM" (insertion-nom)
qui fait référence à un autre classeur, Par une ou des séries graphiques
ayant des références émanant d'un autre classeur.
De même, il est possible que les liens proviennent d'une feuille
de boîte de dialogue Microsoft.
En dernier lieu, il y a les liens de types "xlOLELinks" qui n'ont pas été traité.
"MichDenis"
Essaie ceci et lors du copier-coller, attention au coupure de lignes intempestif
'--------------------------------------------------------
Sub test()
Dim Liens, Rg As Range, F As Range, x As Integer
Dim Sh As Worksheet, NomFeuille As String
Dim Feuille As Worksheet, DerLig As Long
Dim R As String
On Error Resume Next
Application.ScreenUpdating = False
NomFeuille = ActiveSheet.Name
Application.DisplayAlerts = False
Worksheets("Table des liens").Delete
Application.DisplayAlerts = True
Set Feuille = Worksheets.Add(After:=Sheets(Worksheets.Count))
With Feuille
.Name = "Table des liens"
.Range("A1") = "Nom du lien"
.Range("B1") = "Nom de la feuille"
.Range("C1") = "Adresse de la cellule"
.Range("D1") = "Commentaire"
.Range("A1:D1").Font.Bold = True
End With
Liens = ThisWorkbook.LinkSources
For Each lien In Liens
x = 0
R = "[" & Right(lien, Len(lien) - VBA.InStrRev(lien, "")) & "]"
For Each Sh In Worksheets
If Sh.Name <> "Table des liens" Then
DerLig = Feuille.Range("C65536").End(xlUp)(2).Row + IIf(x = 0, 1, 0)
If x = 0 Then
Feuille.Range("A" & DerLig) = lien
x = 1
End If
Feuille.Range("B" & DerLig) = Sh.Name
With Sh.UsedRange
Set F = .Find(What:=R, _
LookIn:=xlFormulas, SearchOrder:=xlByColumns)
If Not F Is Nothing Then
adr = F.Address
Do
Feuille.Range("C" & DerLig) = F.Address
Feuille.Range("D" & DerLig) = F.NoteText
DerLig = DerLig + 1
Set F = .FindNext(F)
Loop While Not F Is Nothing And F.Address <> adr
Else
Feuille.Range("B" & DerLig) = ""
End If
End With
End If
Next
Next
Feuille.Range("A1:C1").EntireColumn.AutoFit
Feuille.Range("D:D").WrapText = False
Sheets(NomFeuille).Select
End Sub
'------------------------------------------------
"rthompson" %
Bonjour
Ceci n'est pas une question urgente, loin de là
Hier soir en discutant avec mon boss autour d'une feuille Excel (sans
beaujolais, JPS n'étant pas là) une petite idée m'est venue
Nous travaillons, comme nombre d'entres vous, sur des fichiers remplis de
liens, des listest et des formules réferant à des cellules un peu partout
Chaque cellule "calculée" contient un petit commentaire avec l'explication,
l'origine etc
L'dée est la suivante
Serait-il possible via macro ou autre des créer un plan avec tous les liens,
réferences etc avec en prime le commentaire
Un peu comme en Access si vous voyez ce que je veux dire
Je ne sais pas si c'est faisable, et en plus je sais même pas si cela
serait utile
donc comme je l'ai dis
Rien d'urgent, juste un petit défi pour passer de bonnes fêtes de fin
d'année en excellant à son aise
A bientôt
Rex
PS pour Misange
Je constate avec plaisir que je fais toujours partie du Pantheon
Merci et Joyeux Noel
Rex