Discussion :

[Amiral19]

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...

[ouskel'n'or]

Code :

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

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 :

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

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)

[Amiral19]

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 :

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

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...]

[ouskel'n'or]

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é

[Amiral19]

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 !

[ouskel'n'or]

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 :

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

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+