Rechercher : dans
Par :

Vba renommer feuilles classeur

Dernière réponse le 12 aoû 2008 à 15:56:53 lorenzo_2007, le 18 jui 2007 à 14:33:27 
 Signaler ce message aux modérateurs

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.

Configuration: Windows XP
Firefox 2.0.0.4

Meilleures réponses pour « vba renommer feuilles classeur » dans :
[VBA] Collections de classes et collections d’objets VoirCette démo emploi, comme le titre l’indique, des collections différentes. Elle ne comporte que deux séries de cinq contrôles mais peut en gérer beaucoup plus avec le même nombre de lignes de code. Introduction Les contrôles sur une feuille de...
[Excel] Chemin et nom de stockage de feuille de calcul VoirIndiquer automatiquement le chemin d'accès (path) et le nom de stockage de toute feuille de calcul Noter dans une cellule (A& par exemple) la formule : =cellule("nomfichier";A1) A chaque sauvegarde et/ou déplacement de fichier dans votre...
[VBA] Recherche Find avec retour multiple VoirUne simple recherche Find vous retourne la première coordonnée trouvée. Dans certaines circonstances il est nécessaire de connaître toutes les coordonnées des occurrences trouvées. C'est ce que fait cette petite fonction. Dans un module...

1

Lupin.A, le 18 jui 2007 à 16:03:37

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

Répondre à Lupin.A

3

arnaud, le 16 jun 2008 à 19:07:57
  • +1

Bonjour,

Je viens de trouver ton code VBA pour les onglet! Bravo

Pourrais-tu m'aider à faire un code qui permettrait de créer des onglets ayant comme nom ceux présents dans les cellules A1, A2......................A100?

Merci d'avance

Répondre à arnaud

2

kouta, le 14 déc 2007 à 13:38:33

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 ???

Répondre à kouta

4

mat20008, le 12 aoû 2008 à 12:35:27

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

Répondre à mat20008

5

mat20008, le 12 aoû 2008 à 12:49:09

J'ai trouvé, c'est très bete comme code:

ActiveSheet.Name = Range("A3").Text

Répondre à mat20008

6

Lupin.A, le 12 aoû 2008 à 14:48:52
  • +1

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

Répondre à Lupin.A

7

 mat20008, le 12 aoû 2008 à 15:56:53

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

Mathieu

Répondre à mat20008
Collection CommentÇaMarche.net