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
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
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
Hello Rex,
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" a écrit dans le message de
news: %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
Hello Rex,
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" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23jlSoDgGHHA.3668@TK2MSFTNGP02.phx.gbl...
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
Hello Rex,
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" a écrit dans le message de
news: %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
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" a écrit dans le message de
news:
%
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
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" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:
%23jlSoDgGHHA.3668@TK2MSFTNGP02.phx.gbl...
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
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" a écrit dans le message de
news:
%
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