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
michdenis
Bonjour Pierre,
Par macro, tu peux utiliser ceci : Tu as aussi l'équivalent directement à partir du menu Insertion - nom - coller.
'------------------------------ Sub test()
Dim N As Name, A As Integer With Worksheets("Feuil1") For Each N In ThisWorkbook.Names A = A + 1 Range("A" & A) = N.Name Range("B" & A) = Range(N.Name).Address Next End With End Sub '------------------------------
"Pierre CFI" a écrit dans le message de groupe de discussion : bonjour
je voudrais faire une boucle pour lire tous les noms, plages ou cell
merci
Pierre CFI
Bonjour Pierre,
Par macro, tu peux utiliser ceci :
Tu as aussi l'équivalent directement à partir du menu
Insertion - nom - coller.
'------------------------------
Sub test()
Dim N As Name, A As Integer
With Worksheets("Feuil1")
For Each N In ThisWorkbook.Names
A = A + 1
Range("A" & A) = N.Name
Range("B" & A) = Range(N.Name).Address
Next
End With
End Sub
'------------------------------
"Pierre CFI" <xxx_pierresalaun@wanadoo.fr> a écrit dans le message de groupe de discussion
: e4n2s7nbKHA.1652@TK2MSFTNGP05.phx.gbl...
bonjour
je voudrais faire une boucle pour lire tous les noms, plages ou cell
Par macro, tu peux utiliser ceci : Tu as aussi l'équivalent directement à partir du menu Insertion - nom - coller.
'------------------------------ Sub test()
Dim N As Name, A As Integer With Worksheets("Feuil1") For Each N In ThisWorkbook.Names A = A + 1 Range("A" & A) = N.Name Range("B" & A) = Range(N.Name).Address Next End With End Sub '------------------------------
"Pierre CFI" a écrit dans le message de groupe de discussion : bonjour
je voudrais faire une boucle pour lire tous les noms, plages ou cell
merci
Pierre CFI
Pierre CFI
merci
toujours au top :o))
"michdenis" a écrit dans le message de news:
Bonjour Pierre,
Par macro, tu peux utiliser ceci : Tu as aussi l'équivalent directement à partir du menu Insertion - nom - coller.
'------------------------------ Sub test()
Dim N As Name, A As Integer With Worksheets("Feuil1") For Each N In ThisWorkbook.Names A = A + 1 Range("A" & A) = N.Name Range("B" & A) = Range(N.Name).Address Next End With End Sub '------------------------------
"Pierre CFI" a écrit dans le message de groupe de discussion : bonjour
je voudrais faire une boucle pour lire tous les noms, plages ou cell
merci
Pierre CFI
merci
toujours au top :o))
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:e5FXZCobKHA.1640@TK2MSFTNGP06.phx.gbl...
Bonjour Pierre,
Par macro, tu peux utiliser ceci :
Tu as aussi l'équivalent directement à partir du menu
Insertion - nom - coller.
'------------------------------
Sub test()
Dim N As Name, A As Integer
With Worksheets("Feuil1")
For Each N In ThisWorkbook.Names
A = A + 1
Range("A" & A) = N.Name
Range("B" & A) = Range(N.Name).Address
Next
End With
End Sub
'------------------------------
"Pierre CFI" <xxx_pierresalaun@wanadoo.fr> a écrit dans le message de
groupe de discussion
: e4n2s7nbKHA.1652@TK2MSFTNGP05.phx.gbl...
bonjour
je voudrais faire une boucle pour lire tous les noms, plages ou cell
Par macro, tu peux utiliser ceci : Tu as aussi l'équivalent directement à partir du menu Insertion - nom - coller.
'------------------------------ Sub test()
Dim N As Name, A As Integer With Worksheets("Feuil1") For Each N In ThisWorkbook.Names A = A + 1 Range("A" & A) = N.Name Range("B" & A) = Range(N.Name).Address Next End With End Sub '------------------------------
"Pierre CFI" a écrit dans le message de groupe de discussion : bonjour
je voudrais faire une boucle pour lire tous les noms, plages ou cell
