Changer nom de colonne en VBA

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

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:

---

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

---

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

ca ne fonctionne pas :

Code:

---

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

---

cherche un peu....

je pense que c'est normal.

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

Code:

---

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 8-)