Feuille reprenant les titres des autres feuil

chacha12 -  
 Emelineb12 -
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

1 réponse

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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+
0
Emelineb12
 
Merci pour ton aide mais je ne maitrise pas encore VBA...
Je le garde sous le coude
Bonne soirée
0