Sub ListeNomsClasseur() Dim n As Name i = 2 For Each n In ActiveWorkbook.Names Cells(i, 1) = n.Name Cells(i, 2) = n i = i + 1 Next n End Sub
JB http://boisgontierjacques.free.fr/
On 20 mar, 09:08, "JMD" wrote:
Bonjour.
J'ai de nombreuses cellules nommées dans une feuille. Je souhaiterais en obtenir la lise, idéalement avec la correspondance en ligne, colonne.
Je ne sais pas du tout comment faire cela en VBA.
Merci d'avance !
francois.forcet
Salut à toi
Soit l'onglet Feuil1 colonne A à traiter Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A1", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Cellule = Cellule & c.Address & vbLf Next MsgBox (Cellule)
résultat dans une boîte de dialogue
Celà devrait te convenir Dis moi !!!!
Salut à toi
Soit l'onglet Feuil1 colonne A à traiter
Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Cellule = Cellule & c.Address & vbLf
Next
MsgBox (Cellule)
Soit l'onglet Feuil1 colonne A à traiter Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A1", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Cellule = Cellule & c.Address & vbLf Next MsgBox (Cellule)
résultat dans une boîte de dialogue
Celà devrait te convenir Dis moi !!!!
Modeste
Bonsour® JB avec ferveur ;o))) vous nous disiez :
Sub ListeNomsClasseur() Dim n As Name i = 2 For Each n In ActiveWorkbook.Names Cells(i, 1) = n.Name Cells(i, 2) = n i = i + 1 Next n End Sub
;o))) préciser toutefois d'activer une feuille vierge ou jaouter l'instruction Worksheets.Add en debut de proc
sinon gare à la casse !!!
-- -- @+ ;o)))
Bonsour® JB avec ferveur ;o))) vous nous disiez :
Sub ListeNomsClasseur()
Dim n As Name
i = 2
For Each n In ActiveWorkbook.Names
Cells(i, 1) = n.Name
Cells(i, 2) = n
i = i + 1
Next n
End Sub
;o)))
préciser toutefois d'activer une feuille vierge
ou jaouter l'instruction Worksheets.Add en debut de proc
Sub ListeNomsClasseur() Dim n As Name i = 2 For Each n In ActiveWorkbook.Names Cells(i, 1) = n.Name Cells(i, 2) = n i = i + 1 Next n End Sub
;o))) préciser toutefois d'activer une feuille vierge ou jaouter l'instruction Worksheets.Add en debut de proc
sinon gare à la casse !!!
-- -- @+ ;o)))
JMD
Merci beaucoup.
a écrit dans le message de news:
Salut à toi
Soit l'onglet Feuil1 colonne A à traiter Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A1", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Cellule = Cellule & c.Address & vbLf Next MsgBox (Cellule)
résultat dans une boîte de dialogue
Celà devrait te convenir Dis moi !!!!
Merci beaucoup.
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
0d72c4ce-3841-4a7a-a0ac-0d5c5009f56e@a70g2000hsh.googlegroups.com...
Salut à toi
Soit l'onglet Feuil1 colonne A à traiter
Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Cellule = Cellule & c.Address & vbLf
Next
MsgBox (Cellule)
Soit l'onglet Feuil1 colonne A à traiter Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A1", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Cellule = Cellule & c.Address & vbLf Next MsgBox (Cellule)