Discussion :

[Akane69]

Bonjour,
je voudrais une macro qui me permet de rajouter les noms de colonnes se trouvant sur la première feuille(entete) sur toutes les autres feuilles du classeur. Je prévois des cas où il y'aura beaucoup plus de feuilles ( jusqu'à près de 500 parfois).

Merci d'avance pour votre aide.

[casefayere]

Bonsoir,
avec un bouton, entre autre :
code du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name <> "Entête" Then
  Ws.Rows("1").Insert
  Ws.Rows("1") = Sheets("Entête").Rows("1").Value
End If
Next Ws
End Sub

[Akane69]

Merci Casefayere,
c'est exactement ce que je voulais.
Je vais être un peu chiant . Est-ce possible d'avoir une macro qui permet de le faire pour tous les fichiers d'un répertoire en fonction de l'extension (xls ou csv ou txt...).

Merci encore