Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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

3 réponses
Avatar
Cogesmont
Comment imprimer la liste des n noms de champs créés dans la fonction
"Gestionnaire des noms"?

3 réponses

Avatar
Daniel.j
Bonjour
[A1].Select
Selection.ListNames
ActiveSheet.PrintOut

Daniel

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

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


Avatar
Fredo P.
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" a écrit dans le message de
news:
Comment imprimer la liste des n noms de champs créés dans la fonction
"Gestionnaire des noms"?


Avatar
PMO
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