Renommer feuille Excel

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

4 réponses

  1. nyko78 Auteur
    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
    1. smartway14
      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
      1. nyko78 Auteur
        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
        1. smartway14
          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