renommer un range

bonjour

je fait appel à vous car je cherche un code simple.

en fait je souhaite renommer des ranges en m'aidant de l'ancien nom, voila ce que j'ai essayé :

Code:

---

Range("rangeAC").Name="rangeACnew"

---

mais ça n'a pas l'air de fonctionner correctement car le range nomrange existe toujours quand je vais dans insertion>>nom>>définir.

est-ce que je suis obligé de passer par un code de ce genre ? :

Code:

---

1 2 3 4 5

ActiveWorkbook.Names("rangeAC").Delete   Range("A1:C1").Select ActiveWorkbook.Names.Add Name:="rangeACnew", RefersToR1C1:= _ "=Feuil1!R1C1:R1C3"

---

il est pas très compliqué en soi, mais il ne correspond pas entièrement à mon besoin.

en effet,j'ai besoin de récupérer la plage du range "rangeAC" pour l'affecter au nouveau range. Ce que je veux dire c'est que ca ne sera pas forcemment A1:C1

Vous voyez ?

merci

Bonjour,
Il suffit de récupérer la propriété RefersToR1C1 avant de supprimer l'ancien nom :

Code:

---

1 2 3

ActiveWorkbook.Names.Add Name:="rangeACnew", RefersToR1C1:= ActiveWorkbook.Names("rangeAC").RefersToR1C1 ActiveWorkbook.Names("rangeAC").Delete

---

Bonjour,

Il te faut juste supprimer l'ancien pour que le nouveau soit actif (les deux faisant référence à la même plage) :

Code:

---

1 2 3

Range("rangeAC").Name = "rangeACnew" ActiveWorkbook.Names("rangeAC").Delete

---

ou alors, passer par une variable String :

Code:

---

1 2 3 4 5 6

Dim Adr As String   Adr = Range("rangeAC").Address ActiveWorkbook.Names("rangeAC").Delete Range(Adr).Name = "rangeACnew"

---

Hervé.

super c'est tout simple !

les deux codes fonctionnent, j'ai une petite préférence pour le premier :P

merci