Discussion :

[La Zélie]

Bonsoir

Quand j'ajoute x feuilles derrière la dernière j'aimerais copier sur chaque feuille, une plage de cellules nommée "entêtes".

cette"entêtes" est située sur la feuille1. faire une macro qui me fait la copie d'une feuille à une autre, cela ne me pose pas de problème.

Mon souci c'est que x est aléatoire: comment faire? si c'est possible bien sur.

Merci à celui qui me dépannera.

[alsimbad]

x est aléatoire, certe, mais en fonction de quoi ?
si c'est un nombre que tu precise, il te suffit peut etre d'une simple boucle

for i = 1 to x
créer nouvellefeuille
entete.copier
entete.coller
next
tu trouvera sur F1 les explication pour : for next , copy, paste
mais ça m'a l'air un peu simple, ce n'est peut etre pas ça que tu recherche ?

[Gorfael]

Salut La Zélie et le forum
Dans le module ThisWorkBook tu colles :

Code :

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

1
2
3
Private Sub Workbook_NewSheet(ByVal Sh As Object)
range("entêtes").Copy sh.range(range("entêtes").Address)
End Sub

À chaque création d'une nouvelle feuille, la macro se lancera et créera ton en-tête à la même adresse que celle de Feuill1
tu peux remplacer :
sh.range(range("entêtes").Address)
par
sh.range("A1"), ou sh.[A1] (pour la destination), mais comme je l'ai fait, si demain tu veux mettre des lignes au-dessus de l'en-tête, tu n'as besoin que de le faire sur feuil1 (et les feuilles existantes, bien sûr), sans retoucher à la macro.
A+

[La Zélie]

Merci alsimbad
Merci Gorfael

Je vais essayer les deux solutions mais j'aurais aimer avoir 20 ans de moins, je ne me serais pas noyée dans le VBA comme je le fais

A+

[La Zélie]

J'ai appliqué la solution de Gorfael et ça marche du tonnerre

Merci