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

[balajo]

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]

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

 

[galopin01]

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]

Merci beaucoup