Listing des noms

[jp14]

Bonjour

Est-il possible d'imprimer une liste des noms d'un classeur avec les références.

Merci d'avance pour vos réponses.

JP

 

[Jam]

Salut jp14,

Ci-après une petite fonction qui liste le tout dans une nouvelle feuille de ton classeur. Y'a plus qu'à l'imprimer après:

Sub ListNom()
Dim x As Variant
Dim i As Integer
Dim Flag As Boolean
Const myName As String = 'Noms'
On Error Resume Next

With ActiveWorkbook
    For Each x In Worksheets
        If x.Name = myName Then Flag = True: Exit For
    Next
    If Flag = False Then
        .Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
        Worksheets(Worksheets.Count).Name = myName
    End If
    With .Worksheets(myName)
            .Columns(1).ClearContents
            .Cells(1, 1).Value = 'FICHIER :    ' & myName
            For Each x In ActiveWorkbook.Names
                .Cells(i + 1, 1).Value = x.Name
                .Cells(i + 1, 2).Value = x.RefersTo
                i = i + 1
            Next
    End With
End With

Bon courage

PS./ attention aux caratères d'encode type nb& qui viennent polluer le code.

Message édité par: jam, à: 06/04/2006 12:21

 

[jp14]

Bonjour Jam

Merci pour le code.
Il y aurait une modif à faire concernant
'Cells(i + 1, 2).Value = x.RefersTo'.

Si on utilise la fonction décaler on obtient non pas la formule mais une valeur correspondante à l'éxécution de la formule.
Pour éviter ce problème j'ai rajouté
= ''' & x.RefersTo.
On obtient la forme anglaise de la formule

Merci pour ton aide

JP

 

[Jam]

Salut jp,

Merci pour l'info.