Vba renommer feuilles classeur

Vba
Feuille

lorenzo_2007 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 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.

Afficher la suite

A voir également:

Vba renommer une feuille
Renommer des fichiers en masse - Guide
Feuille de score belote excel - Forum Excel
Comment renommer quelqu'un sur instagram - Forum Instagram
Renommer iphone - Guide
Bruler une feuille de laurier - Guide

6 réponses

Réponse 1 / 6

Utilisateur anonyme

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

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

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

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 Statut Membre Dernière intervention 1 204

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

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

VBA Executer une macro a l'ouverture de excel

Code Vba Pour masquer les Feuilles

affichage tableau dans MsgBox VBA excel

convertir plusieur feuilles excel en un pdf

Comment afficher une feuille en VBA

Votre réponse

Discussions similaires