Feuille reprenant les titres des autres feuil

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

Afficher la suite

1 réponse

lermite222 Messages postés 9042 Statut Contributeur 1 199

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+

Emelineb12

Merci pour ton aide mais je ne maitrise pas encore VBA...
Je le garde sous le coude
Bonne soirée
0

Feuille reprenant les titres des autres feuil

1 réponse

Discussions similaires

Newsletters