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