Feuille reprenant les titres des autres feuil

Fermé
chacha12 - 2 févr. 2012 à 09:29
 Emelineb12 - 10 févr. 2012 à 21:13
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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 févr. 2012 à 11:19
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
Merci pour ton aide mais je ne maitrise pas encore VBA...
Je le garde sous le coude
Bonne soirée
0