On vient de me transmettre un classeur =E0 analyser.
Il est constitu=E9 de 5 feuilles qui contiennent de nombreuses formules
dont certaines faisant r=E9f=E9rence =E0 des noms de cellules.
Connaissaient vous un moyen simple de r=E9cup=E9rer la liste de tous les
noms de cellules pr=E9sents sur les diff=E9rentes feuilles avec l'adresse
des cellules correspondantes.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick Penet
Sub YYY() Dim x As Integer Dim NMS As Object Set NMS = ThisWorkbook.Names For x = 1 To NMS.Count Debug.Print NMS(x).NameLocal & " " & NMS(x).RefersTo Next x End Sub
P.
a écrit dans le message de news: Bonjour,
On vient de me transmettre un classeur à analyser. Il est constitué de 5 feuilles qui contiennent de nombreuses formules dont certaines faisant référence à des noms de cellules. Connaissaient vous un moyen simple de récupérer la liste de tous les noms de cellules présents sur les différentes feuilles avec l'adresse des cellules correspondantes.
D'avance merci
Joël
Sub YYY()
Dim x As Integer
Dim NMS As Object
Set NMS = ThisWorkbook.Names
For x = 1 To NMS.Count
Debug.Print NMS(x).NameLocal & " " & NMS(x).RefersTo
Next x
End Sub
P.
<jo-dou@hotmail.fr> a écrit dans le message de news: 1163521788.235282.15500@f16g2000cwb.googlegroups.com...
Bonjour,
On vient de me transmettre un classeur à analyser.
Il est constitué de 5 feuilles qui contiennent de nombreuses formules
dont certaines faisant référence à des noms de cellules.
Connaissaient vous un moyen simple de récupérer la liste de tous les
noms de cellules présents sur les différentes feuilles avec l'adresse
des cellules correspondantes.
Sub YYY() Dim x As Integer Dim NMS As Object Set NMS = ThisWorkbook.Names For x = 1 To NMS.Count Debug.Print NMS(x).NameLocal & " " & NMS(x).RefersTo Next x End Sub
P.
a écrit dans le message de news: Bonjour,
On vient de me transmettre un classeur à analyser. Il est constitué de 5 feuilles qui contiennent de nombreuses formules dont certaines faisant référence à des noms de cellules. Connaissaient vous un moyen simple de récupérer la liste de tous les noms de cellules présents sur les différentes feuilles avec l'adresse des cellules correspondantes.
D'avance merci
Joël
JB
Bonsoir,
Exemple de la doc VBA:
Cet exemple montre comment créer la liste de tous les noms dans le classeur actif et afficher les formules correspondantes en notation de type A1 dans le langage de la macro. La liste apparaît dans une nouvelle feuille de calcul créée par l'exemple.
Set newSheet = Worksheets.Add i = 1 For Each nm In ActiveWorkbook.Names newSheet.Cells(i, 1).Value = nm.Name newSheet.Cells(i, 2).Value = "'" & nm.RefersTo i = i + 1 Next newSheet.Columns("A:B").AutoFit
Cordialement JB
Bonjour,
On vient de me transmettre un classeur à analyser. Il est constitué de 5 feuilles qui contiennent de nombreuses formules dont certaines faisant référence à des noms de cellules. Connaissaient vous un moyen simple de récupérer la liste de tous les noms de cellules présents sur les différentes feuilles avec l'adresse des cellules correspondantes.
D'avance merci
Joël
Bonsoir,
Exemple de la doc VBA:
Cet exemple montre comment créer la liste de tous les noms dans le
classeur actif et afficher les formules correspondantes en notation de
type A1 dans le langage de la macro. La liste apparaît dans une
nouvelle feuille de calcul créée par l'exemple.
Set newSheet = Worksheets.Add
i = 1
For Each nm In ActiveWorkbook.Names
newSheet.Cells(i, 1).Value = nm.Name
newSheet.Cells(i, 2).Value = "'" & nm.RefersTo
i = i + 1
Next
newSheet.Columns("A:B").AutoFit
Cordialement JB
Bonjour,
On vient de me transmettre un classeur à analyser.
Il est constitué de 5 feuilles qui contiennent de nombreuses formules
dont certaines faisant référence à des noms de cellules.
Connaissaient vous un moyen simple de récupérer la liste de tous les
noms de cellules présents sur les différentes feuilles avec l'adresse
des cellules correspondantes.
Cet exemple montre comment créer la liste de tous les noms dans le classeur actif et afficher les formules correspondantes en notation de type A1 dans le langage de la macro. La liste apparaît dans une nouvelle feuille de calcul créée par l'exemple.
Set newSheet = Worksheets.Add i = 1 For Each nm In ActiveWorkbook.Names newSheet.Cells(i, 1).Value = nm.Name newSheet.Cells(i, 2).Value = "'" & nm.RefersTo i = i + 1 Next newSheet.Columns("A:B").AutoFit
Cordialement JB
Bonjour,
On vient de me transmettre un classeur à analyser. Il est constitué de 5 feuilles qui contiennent de nombreuses formules dont certaines faisant référence à des noms de cellules. Connaissaient vous un moyen simple de récupérer la liste de tous les noms de cellules présents sur les différentes feuilles avec l'adresse des cellules correspondantes.
D'avance merci
Joël
JB
Il y a aussi Insertion/Nom/Coller/Coller une liste
Si on veut que la liste soit maj automatiquement, une fonction perso:
Function NomsChamps() Application.Volatile Dim temp() ReDim temp(1 To 2, 1 To ActiveWorkbook.Names.Count) i = 1 For Each n In ActiveWorkbook.Names temp(1, i) = n.Name temp(2, i) = n.RefersTo i = i + 1 Next n NomsChamps = Application.Transpose(temp) End Function
Selectionner un champ avec 2 colonnes:
=NomsChamps() Valider avec Maj+Ctrl+entrée
JB
Bonjour,
On vient de me transmettre un classeur à analyser. Il est constitué de 5 feuilles qui contiennent de nombreuses formules dont certaines faisant référence à des noms de cellules. Connaissaient vous un moyen simple de récupérer la liste de tous les noms de cellules présents sur les différentes feuilles avec l'adresse des cellules correspondantes.
D'avance merci
Joël
Il y a aussi Insertion/Nom/Coller/Coller une liste
Si on veut que la liste soit maj automatiquement, une fonction perso:
Function NomsChamps()
Application.Volatile
Dim temp()
ReDim temp(1 To 2, 1 To ActiveWorkbook.Names.Count)
i = 1
For Each n In ActiveWorkbook.Names
temp(1, i) = n.Name
temp(2, i) = n.RefersTo
i = i + 1
Next n
NomsChamps = Application.Transpose(temp)
End Function
Selectionner un champ avec 2 colonnes:
=NomsChamps()
Valider avec Maj+Ctrl+entrée
JB
Bonjour,
On vient de me transmettre un classeur à analyser.
Il est constitué de 5 feuilles qui contiennent de nombreuses formules
dont certaines faisant référence à des noms de cellules.
Connaissaient vous un moyen simple de récupérer la liste de tous les
noms de cellules présents sur les différentes feuilles avec l'adresse
des cellules correspondantes.
Il y a aussi Insertion/Nom/Coller/Coller une liste
Si on veut que la liste soit maj automatiquement, une fonction perso:
Function NomsChamps() Application.Volatile Dim temp() ReDim temp(1 To 2, 1 To ActiveWorkbook.Names.Count) i = 1 For Each n In ActiveWorkbook.Names temp(1, i) = n.Name temp(2, i) = n.RefersTo i = i + 1 Next n NomsChamps = Application.Transpose(temp) End Function
Selectionner un champ avec 2 colonnes:
=NomsChamps() Valider avec Maj+Ctrl+entrée
JB
Bonjour,
On vient de me transmettre un classeur à analyser. Il est constitué de 5 feuilles qui contiennent de nombreuses formules dont certaines faisant référence à des noms de cellules. Connaissaient vous un moyen simple de récupérer la liste de tous les noms de cellules présents sur les différentes feuilles avec l'adresse des cellules correspondantes.
D'avance merci
Joël
jo-dou
Merci beaucoup, vous m'avez fait gagné un temps précieux.
Cordialement
Joël
Merci beaucoup, vous m'avez fait gagné un temps précieux.
