VBA Excel: Changer un résultat de cellule

Résolu
Amélie -  
 Amélie -
Bonjour,

Dans mon classeur Excel, j'utilise le code suivant pour récupérer le nom des onglets et les afficher dans une feuille bien précise, ce qui fonctionne très bien: 

Sub Nom_feuille()
'Code pour récupérer le nom des onglets et les aligner
Dim i As Integer
    For i = 5 To Sheets.Count
    Sheets(4).Cells(1, i) = Sheets(i).Name
    Cells.Select    
    Cells.EntireColumn.AutoFit    
    Cells.EntireRow.AutoFit
    Next    
   
End Sub

J'aimerais simplement savoir comment adapter le code pour que le premier nom ne s'affiche pas en E1 mais:
1. en D1?
2. en D2?

Merci!

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

    Sub Nom_feuille()
        'Code pour récupérer le nom des onglets et les aligner
        Dim i As Integer
        'boucle de 5 a nombre d'onglet
        For i = 5 To Sheets.Count
            'onglet 4: D1---->Dx
            Sheets(4).Cells(i - 4, 4) = Sheets(i).Name
            Cells.Select
            Cells.EntireColumn.AutoFit
            Cells.EntireRow.AutoFit
        Next i
       
    End Sub
    0
    1. Amélie
       
      Bonjour,

      Je vous remercie pour votre réponse, mais ce n'est pas tout à fait ce que j'attendais et je réalise que je me suis mal exprimée.
      Je souhaiterais que le nom des onglets soit toujours aligné mais au lieu que le premier apparaisse en E1, il apparaisse en D1.
      Et de manière totalement indépendante, que dans une autre macro je puisse le faire apparaître à partir de la cellule D2.

      Je vous prie de bien vouloir excuser ce malentendu et vous en remercie par avance!
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      avec le code que j'ai écrit: au lieu que le premier apparaisse en E1, il apparaisse en D1 ça c'est fait.

      deuxième macro: 
      Sub Nom_feuille_D2()
          'Code pour récupérer le nom des onglets et les aligner
          Dim i As Integer
          'efface D1
          Sheets(4).Cells(1, 4).ClearContents
          'boucle de 5 a nombre d'onglet
          For i = 5 To Sheets.Count
              'onglet 4: D2---->Dx
              Sheets(4).Cells(i - 3, 4) = Sheets(i).Name
              Cells.Select
              Cells.EntireColumn.AutoFit
              Cells.EntireRow.AutoFit
          Next i
         
      End Sub
      0
    3. Amélie
       
      Re,

      Je vous remercie pour votre réponse.
      Pour la première macro, j'ai du mal exprimer mon besoin car votre réponse n'a pas apporté le résultat que j'attendais. Mais elle m'a bien aider pour la trouver: 

      Sub Nom_feuille()
      'Code pour récupérer le nom des onglets et les aligner
      Dim i As Integer
          For i = 5 To Sheets.Count
          Sheets(4).Cells(1, i - 1) = Sheets(i).Name
          Cells.Select    
          Cells.EntireColumn.AutoFit    
          Cells.EntireRow.AutoFit
          Next    
         
      End Sub

      Je vous en remercie donc énormément!
      0