Discussion :

[MelkInarian]

Bonjour à toutes et à tous,
Je souhaite modifier toutes les plages nommées d'une feuille de calcul (il y en a 135). Actuellement elles commencent toutes par "Saisie_" et j'aimerais qu'elle commencent toutes par "Inf_".
j'ai trouvé comment ajouter des noms avec

Code :

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

Chaine = Names.Add Name:="toto", RefersTo:="='" & ActiveSheet.Name & "'!" & Selection.Address

mais comment modifier des noms existants, autrement qu'en passant manuellement par le gestionnaire de noms. Quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Activate()
    Dim xFeuil As Worksheet
    Dim xNom As Name
    Dim Chaine As String
    Dim cLong As Integer
    Dim i As Integer
    Set xFeuil = ActiveSheet
    i = 1
    For Each xNom In xFeuil
        i = i + 1
        cLong = Len(xNom)
        If Left(xNom, 7) = "Saisie_" Then
            Chaine = Replace(xNom, "Saisie_", "Inf_")
            'Ici je voudrais "rentrer" Chaine dans xNom
            'Names.Add Name:="toto", RefersTo:="='" & ActiveSheet.Name & "'!" & Selection.Address
        End If
    Next
End Sub

Merci

[joe.levrai]

Bonjour,
il suffit de modifier la propriété Name du Nom

Code :

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

1
2
3
4
5
6
7
8
Sub tirir()
Dim NOM As Name
Const ANCIEN_PREFIXE As String = "TOTO"
Const NOUVEAU_PREFIXE As String = "TITI"
    For Each NOM In ThisWorkbook.Names
        If NOM.Name Like ANCIEN_PREFIXE & "*" Then NOM.Name = Replace(NOM.Name, ANCIEN_PREFIXE, NOUVEAU_PREFIXE)
    Next NOM
End Sub

[MelkInarian]

Merci beaucoup,
C'est parfait.