vba renommer feuilles classeur Fermé

Question

Bonjour, je cherche à créer une macro qui a pour but de renommer une feuille excel d'un classeur en fonction du contenu d'une cellule. 
Je m'explique, j'ai un classeur contenant 10 feuilles ou 10 onglets (je ne connais pas le therme exacte) et je voudrais que chacune de ces feuilles portent le nom de la cellule A1 de la feuille 1. 
Quelqu'un pourrait-il me mettre sur la voie?
Merci.

Utilisateur anonyme · Accepted Answer

Bonjour,

Observation :

Feuil.Name = Feuil.Range("A3").Value 

Attention, ce n'est pas la ligne que j'ai codé :

Feuille.Name = Feuille.Range("A1").Value


Feuil <> Feuille

Feuille est un objet de type [ Worksheet ] et Feuil est le préfixe des noms des feuilles.

Ici, vous ne spécifié pas de façon explicite la localisation de la partie de droite :
ActiveSheet.Name = Range("A3").Text

ActiveSheet.Name = ActiveSheet.Range("A3").Value                ' Cellule A3 de la feuille active
ActiveSheet.Name = Sheets(1).Range("A3").Value                   ' Cellule A3 de la première feuille du classeur
ActiveSheet.Name = Sheets("Feuil2").Range("A3").Value          ' Cellule A3 de la feuille "Feuil2"

Lupin

Utilisateur anonyme · Answer

Bonjour,

suggestion :


Option Explicit

Sub RenommeOngletsNomCelluleA1()

    Dim Feuille As Worksheet
    
    For Each Feuille In Worksheets
        Feuille.Name = Feuille.Range("A1").Value
    Next Feuille
    
End Sub
'


ou ?


Sub RenommeOngletsNomFeuil1CelluleA1()

    Dim Feuille As Worksheet, Boucle As Long
    
    Boucle = 1
    For Each Feuille In Worksheets
        Feuille.Name = Sheets(1).Range("A1").Value & Boucle
        Boucle = (Boucle + 1)
    Next Feuille
    
End Sub
'


Lupin

kouta · Answer

salut
en fait, pour ce qui concerne le nombre des caractères du nom de la feuille est limité de 31 caractères, on fait quoi dans ce cas ???

mat20008 · Answer

Bonjour,

J'ai plus ou moins le meme besoin de renommer mon onglet, j'ai essayé les deux codes, ça ne fonctionne pas pour moi.

Je souhaite créer une macro qui renomme une feuille en fonction de la cellulen A3...

En changeant simplement a1 par a3 j'ai une erreur sur la ligne:      Feuil.Name = Feuil.Range("A3").Value

Le but de ma macro étant de créer un onglet par commercial, puis renommer l'onglet en fonction de son nom en A3...

J'ai 50 onglets à créer puis renommer de façon variable en fonction du nom copié en A3...

Si tu peux me venir en aide...

Cdmt

Mathieu

mat20008 · Answer

J'ai trouvé, c'est très bete comme code:

ActiveSheet.Name = Range("A3").Text

mat20008 · Answer

Très intéressant merci, ça pourrait me servir un jour...

Mathieu

Vba renommer feuilles classeur

6 réponses

Discussions similaires