Comment renommer une série ou des noms de plage et rendre leur portée globale

Question

• J'ai 2 feuilles de modèle (dans Excell 2010) appelées "DefaultDesign" et "DefaultDesignMaterials" avec un certain nombre de noms de cellules avec une portée de classeur. Par exemple, un nom de plage est appelé "DefaultDesign_NumberOfServers" avec une portée de groupe de travail. Je veux copier ces 2 feuilles de modèle et les renommer en "Design1" et "Design1Materials", puis renommer le nom de la cellule (ou plage) "DefaultDesign_NumberOfServers" en "Design1_NumberOfServers" et "DefaultDesign_OS" en "Design1_OS", etc., etc. ... Tous avec une portée de groupe de travail. Il y a trop de noms de cellules et de noms de plage de cellules à renommer manuellement. si vos noms contiennent toujours un « _ » comme -

Answer 1

Vous pouvez faire défiler la liste les noms du classeur actif pour mettre la main sur chaque plage nommée, et renommez-le - exemple

Sub RangeRename() 
Dim N As Name 

    For Each N In ActiveWorkbook.Names 
     N.Name = N.Name & "_New" ' or any other transformation 
    Next N 
End Sub 

Pour la manipulation de chaînes séparateur entre le nom de fichier et nom de plage, vous pouvez utiliser cette transformation:

N.Name = ActiveWorkbook.Name & "_" & Mid(N.Name, InStr(1, N.Name, "_") + 1, 99) 

Espérons que cela aide. Bonne chance - MikeD