Feuille reprenant les titres des autres feuil

Question

Bonjour, 

Sur Excel 2003, je voudrais créer une feuille reprenant tous les titres des autres feuilles (tous en B1)
Pour éviter d'avoir à faire copié-collé, je cherche une formule et une façon d'incrémenter.

Merci d'avance

lermite222 · Answer

Bonjour,
En VBA ?
Sub RecopyTitre()
Dim F As Integer, Lig As Integer
Dim Nom As String
    Nom = "Feuil1" 'Le nom de la feuille où copier
    Lig = 1 ' première ligne où copier les titres
    For F = 1 To Sheets.Count
        If Sheets(F).Name <> Nom Then
            Sheets(F).[B1].Copy Sheets(Nom).celle(Lig, 1)
            Lig = Lig + 1
        End If
    Next
End Sub
A+

Feuille reprenant les titres des autres feuil

1 réponse

Discussions similaires

Newsletters