automatiser la création de PrivateSub

Bonjour à tous

J'ai une macro qui crée le nombre de feuilles dont j'ai besoin avec un nom automatique. J'ai aussi une PrivateSub qui me sert beaucoup dans ces feuilles.

Ce que je voudrais faire, c'est que les feuilles crées par cette macro soient affectées par cette "private".

Est-ce possible ? omment procéder ?

Merci pour vos réponses...

Code:

---

1 2 3

For each LaFeuille in ActiveWorkbook.worksheets PrivatSub Next

---

Soit tu l'appelles ainsi, soit tu mets ton code dans la boucle, dans la macro PrivatSub

Code:

---

1 2 3 4 5 6

Sub PrivatSub() For each For each LaFeuille in ActiveWorkbook.worksheets 'Ton code LaFeuille.Cells(NoLigne, NoCol) = "coucou" Next End sub

---

Si tu veux exclure certaines feuilles, tu testes le nom des feuilles (LaFeuille.name)

Merci Ouskel'n'or,

Je me demande encore où je dois mettre cette boucle sur les feuilles :
Dans le classeur ? Dans un module ?

Et puis, je vais te montrer ce que je mets dans ma private, parce que c'est un peu spécial (merci edelweisseric)

Code:

---

1 2 3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target = Target + 1 End Sub

---

[j'ai édité, parce que j'avais mal écrit ton nom...]

C'est bien là le problème, quand on n'a pas toutes les données, on répond à côté...
Tu as deux solutions, soit, et au lieu de créer une nouvelle feuille tu fais une copie d'une feuille existante dont tu effaces le contenu (Cells.clear) Le code sera inclus à cette nouvelle feuille.
Soit tu copies le code d'une feuille sur la feuille de code de la nouvelle feuille créée... mécéplucompliqué ;)

Merci Ouskel'n'or,

Cà marche bien ! Encore une question. Je peux ? Sur mes feuilles j'ai des dessins et des boutons. On peut coiper les feuilles sans tout çà, ou bien il faut que je créé une feuille vide qui ne serve qu'à contenir le code ?

Et puis, à titre de curiosité intellectuelle, comment on fait pour copier le code d'une feuille et le mettre dans une autre feuille ?

Merci de passer du temps pour aider les débutants comme moi, en tous cas... C'est vraiment sympa !

Citation:

---

Envoyé par Amiral19

Sur mes feuilles j'ai des dessins et des boutons. On peut coiper les feuilles sans tout çà, ou bien il faut que je créé une feuille vide qui ne serve qu'à contenir le code ?

---

Non, pour supprimer tous tes dessins ou boutons, tu peux tester un truc comme ça

Code:

---

1 2 3

For each objet in woksheets("LaFeuille").shapes Objet.delete Next

---

Pas testé
Pour ta seconde question, regarde là, dans la dernière réponse tu as des liens qui pourraient t'intéresser
A+

Merci encore !