Renommer en série tous les noms avec préfixe

balajo · 24 Janvier 2005

Bonjour,

quelqu'un connait-il une astuce pour renommer tous les noms définis dans un classeur sans avoir à modifier toutes les formules dans tous les onglets ?
La fonction modifier n'existe pas...

(Parce que ajouter un nom renommé avec préfixe, puis remplacer chaque nom dans tout le classeur puis supprimer nom modifié, ouille ouile ouille...)

Merci

JC

Dugenou · 24 Janvier 2005

as tu essayé édition/remplacer puis bouton remplacer tout (feuille par feuille) ?

galopin01 · 24 Janvier 2005

bonsoir,
une soluce avec VBA...

Sub Test()
Dim Prefixe As String
Prefixe = "New"
For Each o In ActiveWorkbook.Names
z = o.Name
st = o.RefersTo
If Right(z, 3) <> Préfixe Then
ActiveWorkbook.Names.Add Name:=Prefixe & z, RefersTo:=st
ActiveWorkbook.Names(z).Delete
End If
Next
End Sub

A+

balajo · 25 Janvier 2005

Merci beaucoup

Renommer en série tous les noms avec préfixe

balajo

Guest

Dugenou

Guest

galopin01

Guest

balajo

Guest

Discussions similaires