Discussion :

[LILY230]

BONJOUR

Comment fait-on pour changer le nom de colonne a l'aide de macro vba?
par exemple j'ai une colonne qui est "conventions collectives" que j'aimerai remplacer par "libelle_ccn"
comment puis-je faire ?

merci

[a_diard]

Pourquoi ne pas le faire avec le gestionnaire de noms

Tu peux faire enregistrer une macro

atteindre la zone à renommer

supprimer la zone que tu veux renommer

créer la zone avec le nouveau nom

arrêter l'enregistrement

Tu auras presque le code à utiliser.

ou :

"conventions collectives" n'est pas conforme "pas d'espace dans un nom...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Renomme_Nom()
    Dim AncienNom As String, NouveauNom As String
    Dim Cible As String
     AncienNom = "conventionscollectives"
    NouveauNom = "libelle_ccn"
 
    'Récupère l'adresse de la cellule ou la plage nommée.
    Cible = Range(AncienNom).Name
    'Supprime le nom
    Range(AncienNom).Name.Delete
    'Renomme la plage initiale
    Range(Cible).Name = NouveauNom
End Sub

[LILY230]

merci et du coup comment mettre un "_" pour conventions_collectives ?

[LILY230]

ca ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Sub Renomme_Nom()
    Dim AncienNom As String, NouveauNom As String
    Dim Cible As String
     AncienNom = "conventionscollectives"
    NouveauNom = "libelle_ccn"
 
    'Récupère l'adresse de la cellule ou la plage nommée.
    Cible = Range(A1).Name
    'Supprime le nom
    Range(A1).Name.Delete
    'Renomme la plage initiale
    Range(A1).Name = NouveauNom
End Sub

[a_diard]

cherche un peu....

je pense que c'est normal.

[Transitoire]

Bonjour, pensez a bien vérifiez l'orthographe des noms.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Renomme_Nom()
    Dim AncienNom As String, NouveauNom As String
    Dim Cible As String
     AncienNom = "conventionscollectives"
    NouveauNom = "libelle_ccn"
    'Récupère l'adresse de la cellule ou la plage nommée.
    Cible = Range("A1").Name
    'Supprime le nom
    Range("A1").Name.Delete
    'Renomme la plage initiale
    Range("A1").Name = NouveauNom
End Sub

Cordialement