Vba renommer feuilles classeur

Fermé

Vba
Feuille

lorenzo_2007 Messages postés 1 Date d'inscription mercredi 18 juillet 2007 Statut Membre Dernière intervention 18 juillet 2007 - 18 juil. 2007 à 14:33
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 27 oct. 2010 à 09:58

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.

A voir également:

Renommer feuille excel vba
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Renommer plusieurs fichiers - Guide
Formule excel - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

6 réponses

Réponse 1 / 6

Utilisateur anonyme
12 août 2008 à 14:48

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éponse 3 / 6

Utilisateur anonyme
18 juil. 2007 à 16:03

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

arnaud
16 juin 2008 à 19:07

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

jeune fille en détresse.....
27 oct. 2010 à 09:50

bonjour, ecoutez je suis completement novice en visual basic et j aurai voulu savoir si vous pouviez m expliquer comment ecrire et ou mettre ces lignes de code......a chaque fois que j ai essayé de modifier ou d inserer les codes que vous avez donné je me retrouve avec un message d'erreur....Est ce que je dois le faire dans une submain? dans les sheet 1 ou dans un autre dossier....Help je suis completement perdu!!!!

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
27 oct. 2010 à 09:58

Bonjour jeune fille en détresse.

Ce sujet est vieux de 2 ans.

Je te conseille d'ouvrir un nouveau sujet en expliquant clairement ce que tu veux obtenir ou bien quel code te pose problème. Tu auras ainsi plus de chance d'avoir des réponses.

Merci

;o)

Discussions similaires

Renommer une feuille en VBA

Renommer des onglets automatiquement

Renommer automatiquement une feuille d'après une cellule

avec Excel, vérifier l'existance d'une feuill

VBA Executer une macro a l'ouverture de excel

Code Vba Pour masquer les Feuilles

Discussions similaires

Newsletters