trouver les noms de zone qui existent dans une autre zone

Bonjour ...

j'ai une zone "Titres_colonnes" dont la plage est : A1:D1
en fait c'est l'entete d'un tableau de 4 colonnes. j'ai nommé cette
plage comme çà :
(je la selectionne avant.)

ActiveWorkbook.Names.Add Name:="liste_des_feuilles",
RefersToR1C1:=Selection


je parcours A1, B1, C1 et D1 , et à chaques colonnes je selectionne
tout ce qui
se trouve sous le titre concerné (le titre en a1, en b1 en c1 et en
d1) et je nomme la zone
concernée en utilisant le contenu de la ligne "1".

En gros, je nomme des zones avec le contenu de leur titre. çà donne
çà :

For Each c In [Titres_colonnes]
Range(ActiveCell(), Cells(65536,
ActiveCell.Column).End(xlUp)).Select
Selection.CreateNames Top:=True, Left:úlse, Bottom:úlse,
Right:úlse
ActiveCell.Offset(0, 1).Select
Next c

J'aimerai boucler sur toutes les 4 zones crées (verticalement) mais
sans a-priori
connaitre leur noms, juste en sachant que ces zones débutent toutes
à la ligne "1" (a1 et b1 et c1 et d1)

est-ce possible ?

Merci

José

bonjour Alfred,

on peut se référer à la première zone (colonne A) sans connaitre son nom, de cette manière :

Range([Titres_colonnes].Item(1)).Select

isabelle

Je suspose que, si je remplace .Select par .Value, je vais trouver le
contenu
de cette cellule ?

Je suspose que, si je remplace .Select par .Value, je vais trouver le
contenu
de cette cellule ?

ce ne sera pas une seule cellule mais les cellules de la colonne A
fesant partie du tableau original.
c'est à dire dans l'exemple donnée la plage A1:A4

isabelle