Comment imprimer la liste des noms de champs créés dans la fonct io

Le
Cogesmont
Comment imprimer la liste des n noms de champs créés dans la fonction
"Gestionnaire des noms"?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.j
Le #18156611
Bonjour
[A1].Select
Selection.ListNames
ActiveSheet.PrintOut

Daniel

--
FAQ MPFE
http://dj.joss.free.fr/faq.htm

"Cogesmont" news:
Comment imprimer la liste des n noms de champs créés dans la fonction
"Gestionnaire des noms"?


Fredo P.
Le #18156571
une solution, les éditer sur une feuille
Public Sub editerLesNoms()
Dim c As Object, i!
For Each c In ActiveWorkbook.Names
If c <> "" Then
i = i + 1
Cells(i, 5) = c.Name
End If
Next
End Sub
"Cogesmont" news:
Comment imprimer la liste des n noms de champs créés dans la fonction
"Gestionnaire des noms"?


PMO
Le #18161481
Bonjour,

Je n'ai pas bien compris ce que vous entendez par "Gestionnaire des noms".
S'il s'agit plutôt de "Gestionnaire de scénarios" obtenu par
menu "Outils/Gestionnaire de scénarios…" alors voici une piste
avec le code suivant (sinon à la trappe)

****************
Sub InfoScenarios()
Dim SC As Scenario
Dim i&
Dim T()
ReDim T(1 To ActiveSheet.Scenarios.Count + 1, 1 To 2)
i& = 1
T(i&, 1) = "Nom du scénario"
T(i&, 2) = "Cellules variables"
For Each SC In ActiveSheet.Scenarios
i& = i& + 1
T(i&, 1) = SC.Name
T(i&, 2) = SC.ChangingCells.Address(False, False)
Next SC
Sheets.Add
Range("a1:b" & UBound(T, 1) & "") = T
End Sub
****************

Cordialement.

PMO
Patrick Morange
Publicité
Poster une réponse
Anonyme