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
garnote
Salut Macarena,
Essaie ceci :
Sub Imprime_Noms_Références() With Worksheets.Add i = 1 For Each nom In ActiveWorkbook.Names .Cells(i, 1).Value = nom.Name .Cells(i, 2).Value = "'" & nom.RefersTo i = i + 1 Next nom .Columns("A:B").AutoFit .PrintOut End With End Sub
Serge
"Macarena" a écrit dans le message de news: %
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel avec les plages ???
++ bonne fête et merci a celui qui si colle lol
Salut Macarena,
Essaie ceci :
Sub Imprime_Noms_Références()
With Worksheets.Add
i = 1
For Each nom In ActiveWorkbook.Names
.Cells(i, 1).Value = nom.Name
.Cells(i, 2).Value = "'" & nom.RefersTo
i = i + 1
Next nom
.Columns("A:B").AutoFit
.PrintOut
End With
End Sub
Serge
"Macarena" <agresseur@hotmail.com> a écrit dans le message de news: %23vrNtiIKHHA.3552@TK2MSFTNGP03.phx.gbl...
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel
avec les plages ???
Sub Imprime_Noms_Références() With Worksheets.Add i = 1 For Each nom In ActiveWorkbook.Names .Cells(i, 1).Value = nom.Name .Cells(i, 2).Value = "'" & nom.RefersTo i = i + 1 Next nom .Columns("A:B").AutoFit .PrintOut End With End Sub
Serge
"Macarena" a écrit dans le message de news: %
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel avec les plages ???
++ bonne fête et merci a celui qui si colle lol
JB
Bonjour,
Insertion/Nom/Coller/Coller la liste
JB
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel avec les plages ???
++ bonne fête et merci a celui qui si colle lol
Bonjour,
Insertion/Nom/Coller/Coller la liste
JB
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel
avec les plages ???
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel avec les plages ???
++ bonne fête et merci a celui qui si colle lol
garnote
La réponse de JB m'a fait penser à ceci :
Sub Liste_Noms() With Worksheets.Add .Range("A1").ListNames .PrintOut End With End Sub
"garnote" a écrit dans le message de news:
Salut Macarena,
Essaie ceci :
Sub Imprime_Noms_Références() With Worksheets.Add i = 1 For Each nom In ActiveWorkbook.Names .Cells(i, 1).Value = nom.Name .Cells(i, 2).Value = "'" & nom.RefersTo i = i + 1 Next nom .Columns("A:B").AutoFit .PrintOut End With End Sub
Serge
"Macarena" a écrit dans le message de news: %
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel avec les plages ???
++ bonne fête et merci a celui qui si colle lol
La réponse de JB m'a fait penser à ceci :
Sub Liste_Noms()
With Worksheets.Add
.Range("A1").ListNames
.PrintOut
End With
End Sub
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: OKLVcwKKHHA.1912@TK2MSFTNGP03.phx.gbl...
Salut Macarena,
Essaie ceci :
Sub Imprime_Noms_Références()
With Worksheets.Add
i = 1
For Each nom In ActiveWorkbook.Names
.Cells(i, 1).Value = nom.Name
.Cells(i, 2).Value = "'" & nom.RefersTo
i = i + 1
Next nom
.Columns("A:B").AutoFit
.PrintOut
End With
End Sub
Serge
"Macarena" <agresseur@hotmail.com> a écrit dans le message de news: %23vrNtiIKHHA.3552@TK2MSFTNGP03.phx.gbl...
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel
avec les plages ???
Sub Liste_Noms() With Worksheets.Add .Range("A1").ListNames .PrintOut End With End Sub
"garnote" a écrit dans le message de news:
Salut Macarena,
Essaie ceci :
Sub Imprime_Noms_Références() With Worksheets.Add i = 1 For Each nom In ActiveWorkbook.Names .Cells(i, 1).Value = nom.Name .Cells(i, 2).Value = "'" & nom.RefersTo i = i + 1 Next nom .Columns("A:B").AutoFit .PrintOut End With End Sub
Serge
"Macarena" a écrit dans le message de news: %
Bonsoir
Est il possible d'imprimer toutes les définitions de nom d'un classeur Excel avec les plages ???