Comment imprimer la liste des n noms de champs créés dans la fonction "Gestionnaire des noms"?
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"?
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" <Cogesmont@discussions.microsoft.com> a écrit dans le message de
news:C00BAC7E-1057-4EE1-B52C-FF2CF04A3714@microsoft.com...
Comment imprimer la liste des n noms de champs créés dans la fonction
"Gestionnaire des noms"?
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"?
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
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
****************
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 ****************