Lire le nom d'une cellule

[Tom_Tom]

Bonjour tout le monde,


Voici mon petit problème que je n'arrive pas à résoudre:


J'ai des cellules nommées par exemple : P_A, P_Toto ...etc...
Je voudrais les changer de noms par VBA, par exemple en: P_AA, P_XX ...

Mais pour éviter d'avoir P_A et P_AA qui pointe vers la même cellule, je voudrais d'abord les supprimer par des lignes du genre :

ActiveWorkbook.Names("P_A").Delete

Mais pb, je n'arrive pas à lire le nom "P_A" pour l'utiliser dans delete !!



Merci d'avance

 

[Minick]

salut,

Pour lire le nom de la cellule A1 tu peux utiliser ceci :

Range("A1").Name.Name


Ce qui donnerai pour oter le nom puis renommer A1 ceci:

ActiveWorkbook.Names(Range("A1").Name.Name).Delete
ActiveWorkbook.Names.Add Name:="TonNom", RefersToR1C1:="=Feuil1!R1C1"


@+
Minick

 

[Tom_Tom]

Bonsoir Minick et le forum,


Je me doutais bien que ça doit être un truc de ce genre.

J'ai essayé des tas de choses et je n'ai pas pensé à faire name 2 fois!


Merci encore