Sujet Précédent Sujet Suivant

Renommer feuille Excel

Fermé
nyko78 Messages postés 5 Date d'inscription mardi 28 juillet 2009 Statut Membre Dernière intervention 31 juillet 2009 - 28 juil. 2009 à 10:29
nyko78 Messages postés 5 Date d'inscription mardi 28 juillet 2009 Statut Membre Dernière intervention 31 juillet 2009 - 28 juil. 2009 à 14:10
Bonjour à tous,

Je rencontre un problème avec Excel et malgré tout les topics sur ce sujet je n'ai pas trouvé la réponse.

Voilà je suis entrain de mettre en place un fichier Excel avec plusieurs feuilles et je souhaite renommer chaque feuille en fonction d'un contenu d'une cellule d'une feuille source.

En clair, sur ma feuille source plusieurs cellules sont remplies (A1, B1, C1….). J’aimerai que les feuilles suivantes se nommer du contenu celles-ci (Feuil1 => contenu de la feuille source A1, Feuil2 => contenu de la feuille source B1…..)

Merci de votre aide.
A voir également:

4 réponses

Réponse 1 / 4
smartway14 Messages postés 822 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 octobre 2011 185
28 juil. 2009 à 11:58
bonjour;
essayez ce macro
Sub renomer()
Dim ctr As Integer
For ctr = 1 To Sheets.Count
Sheets(ctr).Name = Cells(1, ctr)
Next
End Sub
0
Réponse 2 / 4
nyko78 Messages postés 5 Date d'inscription mardi 28 juillet 2009 Statut Membre Dernière intervention 31 juillet 2009
28 juil. 2009 à 13:38
Sur le principe ca fonctionne, merci, mais je n'arrive pas à la transcrit pour mon fichier.

En fait ma feuille source ne doit pas changer de nom (appelé dans le fichier Saisie).

Sur quelle feuille je dois appliquer cette macro?

De plus pour corsé le tout le contenu des cellules se trouvent au niveau Saisie!BD10, Saisie!BF10... 1 sur 2 jusqu'à Saisie!ED10.

Donc Saisie!BD10 => nom Feuil1, SaisieBF!10 => nom Feuil2

Merci de votre aide
0
Réponse 3 / 4
smartway14 Messages postés 822 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 octobre 2011 185
28 juil. 2009 à 13:49
Sub renommer()
Dim ctr As Integer
For ctr = 2 To Sheets.Count
Sheets(ctr).Name = Cells(1, ctr - 1)
Next
End Sub
appliquez ce macro sur la feille1
pour la deuxiéme partie j'ai ps comprit????????
0
Réponse 4 / 4
nyko78 Messages postés 5 Date d'inscription mardi 28 juillet 2009 Statut Membre Dernière intervention 31 juillet 2009
28 juil. 2009 à 14:10
Merci pour tout ca marche bien.

Cependant, j'ai encore un petit soucis.

Le contenu des cellules que je dois recuperer pour renommer les feuilles se trouve dans une feuille source (appeler Saisie) et ces cellules se trouvent en BDB10, BF10....ED10.

Je dois donc appliquer cette macro avec ces criteres supplementaires chose que je ne sais pas faire.
0