Ecrire dans le code d'une feuille par macro

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Ecrire dans le code d'une feuille par macro

Tomuscz

Salut tout le monde,

Je reviens à la charge (pour une dernière question j'espère...).

J'ai quasiment bouclé ma macro mais il me reste un dernier truc à gérer.
En fait ma macro, suivant le choix de l'utilisateur, va créer X feuilles dont les données vont ensuite être exposées en tableaux et graphique. J'ai une macro qui doit se trouver dans le code de chaque feuille pour que quand je clique dans la colonne 20 ça change l'état de la colonne 21 en OUI ou NON.
Or vu que le fichier excel ne démarre qu'avec la feuil1 vierge et que tout le reste est crée ensuite par la macro il me faut une macro qui va venir écrire le code dans les feuilles 1à x....

J'ai essayé ça mais bizaremment ça ne marche pas, j'ai parcouru pas mal de forum sans succès...si quelqu'un pouvait m'aider là dessus ça me sauverait bien.

Exemple de ce que j'ai essayé :

Code :

Sub InsertionMacroFeuilles()
Dim X As Integer
Dim a As Integer
Dim N As String
Dim O As String
N = "NON"
O = "OUI"
For a = 1 To Compteur
With ActiveWorkbook.VBProject.VBComponents("Feuil" & a & "" ).CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
.InsertLines X + 2, "If Target.Column <> 20 Then Exit Sub"
.InsertLines X + 3, "Select Case Target.Offset(0, 1)"
.InsertLines X + 4, "Case True"
.InsertLines X + 5, "Target.Offset(0, 1) = N"
.InsertLines X + 6, "Case False"
.InsertLines X + 7, "Target.Offset(0, 1) = O"
.InsertLines X + 8, "Case Else"
.InsertLines X + 9, "Target.Offset(0, 1) = N"
.InsertLines X + 10, "End Select"
.InsertLines X + 11, "Target.Offset(0, 1).Select"
.InsertLines X + 12, "End Sub"
End With
End Sub

Message édité par Tomuscz le 15-07-2009 à 08:17:22

Publicité

GuiGui013

Mais "Compteur" vaut combien !?

Tomuscz

Compteur est saisi par l'utilisateur au départ...

Mais j'ai trouvé ma solution, je vais en faire profiter les éventuels interessés en ésperant que cela puisse aider...

En fait ma macro pour inscrire le code est donc devenu ceci :

Code :

Sub EcrireCode()
' Ce code permet de recopier la macro Private Sub Worksheet_SelectionChange dans les feuilles bateaux
' c'est elle qui permet de faire fonctionner le principe de click dans la colonne 20 qui donne l'attribut
' VRAI ou FAUX dans la colonne 21
Dim i, LeCode(1 To 15)
Dim NomClasseur As String, NomFeuil As String
Dim Wb As Workbook
NomClasseur = ActiveWorkbook.Name
LeCode(1) = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
LeCode(2) = " NbreLignes =3+ Application.CountA(Range(""E1:E65536"" ))"
LeCode(3) = "Non = ""NON"
LeCode(4) = "Oui = ""OUI"
LeCode(5) = " If Intersect(Target, Range(""T5:T"" & NbreLignes)) Is Nothing Then Exit Sub"
LeCode(6) = " Select Case Target.Offset(0, 1)"
LeCode(7) = " Case Is = Oui"
LeCode(8) = " Target.Offset(0, 1) = ""NON"
LeCode(9) = " Case Is = Non"
LeCode(10) = " Target.Offset(0, 1) = ""OUI"
LeCode(11) = " Case Else"
LeCode(12) = " Target.Offset(0, 1) = ""OUI"
LeCode(13) = " End Select"
LeCode(14) = "Target.Offset(0, 1).Select"
LeCode(15) = "End sub"
Set Wb = Workbooks(NomClasseur)
For X = 2 To Compteur + 1
For i = 1 To 15
Wb.VBProject.VBComponents("Feuil" & X).CodeModule.InsertLines i, LeCode(i)
Next i
Next X
End Sub

Mais ce qui m'empéchait de la faire marcher était en fait une option de sécurité :

Dans Excel -> Outils -> Macro -> Sécurité... Onglet Editeurs approuvés, il faut cocher Faire confiance au projet Virtual Basic

Voila les amis merci pour l'aide précedente, en éspèrant que ça aide...

zit_zit

bonjour à tous,

j'ai utilisé le code que tu as mis j'ai une erreur lors de l'execution en faite excel plante tout simple !!!

j'ai l impression qu' il essaie de d'executé le code de que je place dans le ThisWorkbook aurais-tu une idée pour résoudre ce soucis ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Ecrire dans le code d'une feuille par macro

Sujets relatifs
Macro Excel	Macro excel 2007 remplir tableau recap
Ecrire une page html en vbs	Aide pour alléger une macro
Addition toute bête en VBA (Macro Excel)	[RESOLU] Problème de vérouillage dans ma feuille excel
Convertir code C# -> VBA ou VBA -> C#	Détecter l'affichage d'une MsgBox dans une macro excel
[ksh] Ecrire sans fichier temporaire	[Resolu] [VBA] Macro Excel - Zone de texte
Plus de sujets relatifs à : Ecrire dans le code d'une feuille par macro

Page générée en 0.076 secondes