Discussion :

[id301077]

Bonjour,

Mon probleme est le suivant :

Mon classeur Excel contient deux feuilles :

List : contient une colonne avec une liste de mes feuilles à créer (A003,B005,C001,......).

A002 : c'est la feuille source que je cherche à copier.

Au total je dois créer 150 feuilles. Toutes ces feuilles ont la meme structure que la feuille A002.

La premiere solution consiste à faire de copier coller à la main , c'est un peu pénible.

Je me demande si il n y pas d'autres methodes avec le code VBA qui va faire ca plus rapidement

Merci pour votre help

[Jean-Philippe André]

Salut,

c'est tout à fait possible.

Quelques pistes pour toi :
- ajout d'une feuille en VBA

Code :

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

Thisworkbook.Worksheets.Add

- effectuer une boucle for

[YanBos]

Hello,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ajout()
 
Dim i As Integer
 
For i = 1 To 5
Sheets("A002").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name ="Freddy Mercury" & i
Next
 
End Sub

Bye

[QuestVba]

Bonjour,

Voici un code pour ajouter les onglets sur base de ta liste (nommée 'Liste').

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ajout_feuilles()
 
Dim NomFeuille, c
 
For Each c In Range("liste")
NomFeuille = c.Value
Sheets("A002").Copy Before:=Sheets("A002")
ActiveSheet.Name = NomFeuille
Next c
 
End Sub

Un seul endroit pour une seule question, c'est mieux !

[id301077]

Je vous remercie pour vos réponse.

Cela ne repond pas completement à ce que je voulais.
Je voudrais copier le contenu ( formules) la feuille A001 et la coller dans les autres feuilles.

Merci encore

[YanBos]

Ah, je n'avais pas compris que la liste contenait les noms des feuilles!

Sinon si ce sont juste les formules que tu veux, pourquoi ne pas fabriquer une feuille avec exactement la même structure que A002 mais avec les cases de données non-remplies ?
De cette façon en copiant cette nouvelle feuille A002_bis tu aurais juste la structure de A002 et pas les données qu'elle contient.

[id301077]

En fait je cherchje à copier la structure et les formules en meme temps.

J'ai le fichier plat avec toutes les feuilles listées.

J'ai fabriqué à la main des tableaux pour une feuille A002, je cherche à faire du meme pour les autres feuilles.

Merci

[QuestVba]

a001 ou a002 ?
quel est exactement le problème ?

[id301077]

Merci Lionel pour vos réponses.

La question est de savoir :

- Ajouter automatiquement des feuilles avec des noms qui se trouvent dans la colonne A1:A151. Chaque cellule correspond au nom de la feuille.
- Copier la feuille A002 ( ma référence) et la coller dans toutes les feuilles crées.

J'espère etre claire .

Merci par avance