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!

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17413 Statut Membre 1 715
 
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
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
f894009 Messages postés 17413 Statut Membre 1 715
 
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
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