Discussion :

[tioch]

Bonjour à tous,

Je voudrais dans une macro pouvoir remplir un tableau (qui est une variable) avec les noms de toutes les cellules définies.
(En gros je voudrais pouvoir copier que les cellules définies par un nom.)

Si quelqu'un a une idée merci d'avance

Tioch

[jfontaine]

Bonjour,

Ce code boucle sur toutes les plages nommées du classeur
Restera à faire ton traitement à l'intérieur de la boucle (copie, etc)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim pg As Name
 
For Each pg In ThisWorkbook.Names
    MsgBox pg.Name
Next

[MarcelG]

Bonsoir Tioch, Bonsoir Jérôme, Bonsoir le Forum,

Personnellement, je ne vois pas l'utilité d'affecter une variable tableau à ta liste de noms du fait que cette opération peut se faire directement par le menu d'Excel (Coller une liste).

Cela dit, pour le "fun", voici une proposition:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub nomtabl()
Dim tbl() As String
n = 0
For Each nom In Names
    n = n + 1
    ReDim Preserve tbl(1 To n)
    tbl(n) = nom.Name
Next nom
Sheets("mafeuille").Range("A1", Range("A1").Offset(UBound(tbl) - 1, 0)).Value = WorksheetFunction.Transpose(tbl)
Erase tbl
End Sub

(à adapter)