Renommer une cellule

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4627011
Bonjour.
Pour renommer simplement une cellule, mets simplement :
[A1].Name = "toto"
L'ancien nom est supprimé.
Cordialement.
Daniel
"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


Daniel
Le #4626991
L'ancien nom est supprimé.


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

Céline
Le #4626971
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






Publicité
Poster une réponse
Anonyme