Discussion :

[_developpeur_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tedo01]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou alors, passer par une variable String :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim Adr As String
 
Adr = Range("rangeAC").Address
ActiveWorkbook.Names("rangeAC").Delete
Range(Adr).Name = "rangeACnew"

Hervé.

[_developpeur_]

super c'est tout simple !

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

merci