Macro pour renommer feuille Excel
nyko78
Messages postés
5
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Je mets actuellement en place un fichier avec plusieurs feuilles.
Je souhaiterai pouvoir nommer les feuilles en fonction du contenu des cellules d’une feuille de saisie.
Pour commencer, ma feuille de saisie sera située en 3eme position sur 43 dans la liste des feuilles.
A partir de là, le contenu que je souhaite recuperer pour nommer les feuilles Feuil1, Feuil2….Feuil40 se situe à partir de la cellule BD10, BF10…..ED10.
En clair le contenu de la cellule BD10 de la feuille de saisie nomme la Feuil1, BF10 nomme la Feuil2…..ED10 nomme la Feuil40
J’ai essayé quelques macros mais je n’arrive pas à l’adapter à mon fichier.
Merci de votre aide.
Je mets actuellement en place un fichier avec plusieurs feuilles.
Je souhaiterai pouvoir nommer les feuilles en fonction du contenu des cellules d’une feuille de saisie.
Pour commencer, ma feuille de saisie sera située en 3eme position sur 43 dans la liste des feuilles.
A partir de là, le contenu que je souhaite recuperer pour nommer les feuilles Feuil1, Feuil2….Feuil40 se situe à partir de la cellule BD10, BF10…..ED10.
En clair le contenu de la cellule BD10 de la feuille de saisie nomme la Feuil1, BF10 nomme la Feuil2…..ED10 nomme la Feuil40
J’ai essayé quelques macros mais je n’arrive pas à l’adapter à mon fichier.
Merci de votre aide.
A voir également:
- Macro pour renommer feuille Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Renommer des fichiers en masse - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Word et excel gratuit - Guide
3 réponses
Salut
Essayes ce code associé à un bouton
Sub Macro1()
'
Sheets("ma feuille de saisie ").Select
Feuil1.Name = Range("BD10")
Feuil2.Name = Range("BF10")
' etc ...
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Essayes ce code associé à un bouton
Sub Macro1()
'
Sheets("ma feuille de saisie ").Select
Feuil1.Name = Range("BD10")
Feuil2.Name = Range("BF10")
' etc ...
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Ok merci pour cette proposition.
Cependant, je n'arrive pas à appliquer la macro.
Lorsque j'enregistre la macro dans VBA je change le champ suivant par le vrai mon de ma feuille:
Sheets("ma feuille de saisie ").Select par Sheets(Saisie).Select.
Il y a t'il un moyen d'eviter le bouton et meme d'eviter une macro afin que me fichier ne soit trop volumineux.
Merci encore
Cependant, je n'arrive pas à appliquer la macro.
Lorsque j'enregistre la macro dans VBA je change le champ suivant par le vrai mon de ma feuille:
Sheets("ma feuille de saisie ").Select par Sheets(Saisie).Select.
Il y a t'il un moyen d'eviter le bouton et meme d'eviter une macro afin que me fichier ne soit trop volumineux.
Merci encore
Salut,
Pour compléter cette discussion, même si les feuilles ont été renommées (clic droit renommer), elles conservent leurs codages Excel et dans les propriétés feuilles on peut lire Feuil1(nom de la feuille) dans ce cas le code se simplifie à
Sub Macro1()
Feuil1.Name = Feuil3.[BD10]
Feuil2.Name = Feuil3.[BF10]
Feuil3.Name = Feuil3.[ED10]
etc ...
etc ...
End Sub
Si les feuilles ont été renommées dans la propriété, il faudra en tenir compte dans le code.
Le VBA est indispensable pour automatiser cette attente, par contre il peut effectivement être déclenché automatiquement lorsqu’une valeur change dans la plage de cellule concernant les noms de feuille BD10, BF10 etc …
Si tu rencontre un problème, je te ferai un petit montage
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Pour compléter cette discussion, même si les feuilles ont été renommées (clic droit renommer), elles conservent leurs codages Excel et dans les propriétés feuilles on peut lire Feuil1(nom de la feuille) dans ce cas le code se simplifie à
Sub Macro1()
Feuil1.Name = Feuil3.[BD10]
Feuil2.Name = Feuil3.[BF10]
Feuil3.Name = Feuil3.[ED10]
etc ...
etc ...
End Sub
Si les feuilles ont été renommées dans la propriété, il faudra en tenir compte dans le code.
Le VBA est indispensable pour automatiser cette attente, par contre il peut effectivement être déclenché automatiquement lorsqu’une valeur change dans la plage de cellule concernant les noms de feuille BD10, BF10 etc …
Si tu rencontre un problème, je te ferai un petit montage
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
