Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Renommer une cellule

Renommer une cellule

3 réponses
Avatar
Céline
Bonjour,

J'ai un petit souci pour renommer des cellules dans une procédure.
Voilà j'ai des noms de cellules à changer sur des feuilles, je me suis aidée
de l'enregistreur mais le résultat est à moitié bon en effet le premier nom
change bien mais pas les deux autres !! voici le code :

Range("AE41:AF41").Select
ActiveWorkbook.Names("loybur").Delete
ActiveWorkbook.Names.Add Name:="loybase", RefersToR1C1:= _
"='Fiche rés. conclusif n+2 Déc.'!R41C31"

Range("AE42:AF42").Select
ActiveWorkbook.Names("loycom").Delete
ActiveWorkbook.Names.Add Name:="loycomp", RefersToR1C1:= _
"='Fiche rés. conclusif n+2 Déc.'!R42C31"

Range("J116:K116").Select
ActiveWorkbook.Names("Trdhab").Delete
ActiveWorkbook.Names.Add Name:="txrdt", RefersToR1C1:= _
"='Fiche rés. conclusif n+2 Déc.'!R116C10"

Pour loybase ça fonctionne mais pas les deux autres;

Si qqu'un connaît un code fiable merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Pour renommer simplement une cellule, mets simplement :
[A1].Name = "toto"
L'ancien nom est supprimé.
Cordialement.
Daniel
"Céline" a écrit dans le message de news:

Bonjour,

J'ai un petit souci pour renommer des cellules dans une procédure.
Voilà j'ai des noms de cellules à changer sur des feuilles, je me suis
aidée
de l'enregistreur mais le résultat est à moitié bon en effet le premier
nom
change bien mais pas les deux autres !! voici le code :

Range("AE41:AF41").Select
ActiveWorkbook.Names("loybur").Delete
ActiveWorkbook.Names.Add Name:="loybase", RefersToR1C1:= _
"='Fiche rés. conclusif n+2 Déc.'!R41C31"

Range("AE42:AF42").Select
ActiveWorkbook.Names("loycom").Delete
ActiveWorkbook.Names.Add Name:="loycomp", RefersToR1C1:= _
"='Fiche rés. conclusif n+2 Déc.'!R42C31"

Range("J116:K116").Select
ActiveWorkbook.Names("Trdhab").Delete
ActiveWorkbook.Names.Add Name:="txrdt", RefersToR1C1:= _
"='Fiche rés. conclusif n+2 Déc.'!R116C10"

Pour loybase ça fonctionne mais pas les deux autres;

Si qqu'un connaît un code fiable merci


Avatar
Daniel
L'ancien nom est supprimé.


Faux.
Mets plutôt :
[A1].Name.Delete
[A1].Name = "toto"
Daniel

Avatar
Céline
Bravo Daniel

Super MERCI !!!!!!!!

dire qu'hier j'ai passé un temps infini à chercher le problème, merci encore
bonne journée avec ce beau temps


L'ancien nom est supprimé.


Faux.
Mets plutôt :
[A1].Name.Delete
[A1].Name = "toto"
Daniel