Modifier titre feuille excel avec contenu cellule...
margaux1991
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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
- Imprimer feuille excel sur une page - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Trier un tableau excel - Guide
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