Création feuilles + Ajout de code dans feuilles par vba

[Al]

Bonjour le forum

J' ai un classeur et eun bouton qui me permet d' ajouter des feuilles par VBA, tout se passe très bien, mais je n' arrive pas à construire un code afin que la création des feuilles se fasse à partir d' une feuille modele du classeur.
De mçeme, la création d' un bouton + son code sur toutes les feuilles ajoutées, mon code pour le bouton me le fait sur une seule feuille.
Et aussi je voudrais inserer du code dans chaque feuilles crées


Un grand merci à celui qui arrivera à m' aidre à résoudre mon Pb

AL

 

[@+Thierry]

Salut AL (c'est pas le nom de l'ordi dans 2001 Space Odissy !! lol)

Tiens fais un tour dans le fil Numéro 21649 et tu regardes mon post détaillé et explicit du 21-04-03 20:47

Tu as tout ce qu'il faut pour écrire des codes.

Par contre pour ton problème alors regarde aussi ma démo :

Lien supprimé (18k)

Tu verras que dedans j'utilise la méthode Sheets("X").Copy.... et non pas Add comme tu dois faire... Tu devrais bien mieux t'en sortir... Car même les private sub de la feuille vont suivre....


Bon Week End
@+Thierry

 

[Al]

Merci Thierry pour ton modèle de fichier, à partir de ton conde, je peux créer mes feuilles à partir d' un modèle prédéfint, mais le pb c' est que je veux par la suite mettre en A1 le mois, et eb B6 le jour, en C6 le nom du jour férie, et 4 colonnes suivantes, ceci pour 12 mois. ainsi que le quadrillage pour ces colonnes sur des feuilles à motif gris palen sans quadrillage.
Aurais tu une idée, car mon code est foireux sur ce coup là !

Merci de ton aide

Al

 

[@+Thierry]

Salut AL, le Forum

Tout dépend comment tu vas intialiser tes Variables pour Mois, Jour, etc...

Voici des exemples en tant que String :

Sub test()
Dim X As Byte
Dim NomFeuille As String
Dim Mois As String
Dim Jour As String


NomFeuille = "toto" 'Ta variable qui nomme les feuilles... (Peut provenir d'un tableau d'une feuille...)
Mois = "Mai" 'Ta variable qui nomme mois... (Idem)
Jour = "Samedi" 'Ta variable pour les jours... (Idem)


X = Sheets.Count
Sheets("Template").Copy After:=Sheets(X)
With Sheets(X + 1)
.Name = NomFeuille
.Range("A1") = Mois
.Range("B6") = Jour
.Range("A6:E50").Interior.ColorIndex = 15
End With
End Sub

Ou encore comme ceci :

Sub test()
Dim X As Byte
Dim NomFeuille As String
Dim Mois As String
Dim Jour As String

NomFeuille = "toto" 'Ta variable qui nomme les feuilles...
Mois = Format(Now, "MMMM")
Jour = Format(Now, "DDDD")


X = Sheets.Count
Sheets("Template").Copy After:=Sheets(X)
With Sheets(X + 1)
.Name = NomFeuille
.Range("A1") = Mois
.Range("B6") = Jour
.Range("A6:E50").Interior.ColorIndex = 15
End With
End Sub

Enfin il y a plein de possibilités.... Tout dépend en fait de ce que tu veux...

Pour ce qui est des formats (Quadrillage etc, utilise l'enregistreur de Macro, tu auras le code)

Bon Week End
@+Thierry