Modifier titre feuille excel avec contenu cellule...
margaux1991
Messages postés
10
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,
Voilà mon soucis.
J'ai créé une feuille dans mon classeur Excel qui est la copie d'une autre. Son nom est directement établi comme : Feuille 1 (2).
Je souhaiterai modifier ce nom et le remplacer par le contenu de la cellule A5 (de cette meme feuille ou de la copie initiale).
Si je fais :
ActiveSheets.Name = Range("A5")
Ça ne marche pas...
J'ai essayé avec .text, .Value, rien à faire...
Auriez-vous une idée ?
Merci d'avance !
Voilà mon soucis.
J'ai créé une feuille dans mon classeur Excel qui est la copie d'une autre. Son nom est directement établi comme : Feuille 1 (2).
Je souhaiterai modifier ce nom et le remplacer par le contenu de la cellule A5 (de cette meme feuille ou de la copie initiale).
Si je fais :
ActiveSheets.Name = Range("A5")
Ça ne marche pas...
J'ai essayé avec .text, .Value, rien à faire...
Auriez-vous une idée ?
Merci d'avance !
A voir également:
- Modifier titre feuille excel avec contenu cellule...
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
4 réponses
Merci Patrice pour cette réponse très rapide.
Cependant, cela ne fonctionne pas...
Quand je fais ça, Excel m'annonce "erreur 1004".
Voici le début de mon code...
Sheets("Manifestation Terminée").Select
Sheets("Manifestation Terminée").Copy After:=Sheets(10)
ActiveWindow.SmallScroll Down:=1
Worksheets("Manifestation Terminée (2)").Activate
ActiveSheet.Name = Range("A5").Value
Sheets("Manifestation Terminée").Select
Cela ne fonctionne pas.
Cependant, cela ne fonctionne pas...
Quand je fais ça, Excel m'annonce "erreur 1004".
Voici le début de mon code...
Sheets("Manifestation Terminée").Select
Sheets("Manifestation Terminée").Copy After:=Sheets(10)
ActiveWindow.SmallScroll Down:=1
Worksheets("Manifestation Terminée (2)").Activate
ActiveSheet.Name = Range("A5").Value
Sheets("Manifestation Terminée").Select
Cela ne fonctionne pas.
Re,
Il faut préciser dans quelle feuille se situe le Range, le code suivant fonctionne parfaitement (à condition que la cellule A5 de la feuille "Feuil1" contienne un nom autorisé) :
Il faut préciser dans quelle feuille se situe le Range, le code suivant fonctionne parfaitement (à condition que la cellule A5 de la feuille "Feuil1" contienne un nom autorisé) :
Sub test()
Worksheets("Manifestation Terminée").Copy After:=Sheets(10)
Worksheets(10).Name = Worksheets("Feuil1").Range("A5").Value
End Sub