Supprimer du code par une macro

Bonjour,

Je souhaite faire une suppression de la procédure "Private Sub Worksheet_Change(ByVal Target As Range)" par l'intermédiaire d'une macro qui se lance après une première.
La première macro génère 12 feuilles qui dupliquent une base appelée TRAME et qui portent ensuite le du mois auquel elles correspondent.

Ce que j'essaie de faire est une boucle qui parcoure les 12 feuilles et supprime cette procédure et uniquement celle-ci rattachée à la feuille. J'ai mis le code suivant dans "Module1" après la macro de copie de feuilles avec une adaptation du code issu de :

http://www.developpez.net/forums/d56...-macros-macro/

Mais ça ne marche pas, avec une erreur qui se positionne sur la première ligne de With.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Supprimer_Code_Feuille()   Dim NomFeuille As String, i%   For i = 1 To 12 NomFeuille = MonthName(i) With ActiveWorkbook.VBProject.VBComponents _ (ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Next i End Sub

---

D'avance merci!

Bonjour,

cette procédure me semble correcte en termes de syntaxe

quel est le message d'erreur ? et quelle valeur prend i lors de l'erreur ?

tu es sûr d'avoir 12 feuilles avec chacune le nom du mois ? le nom est correctement écris ? pas de problème de casse, d'accents ou d'espaces ?

attention aussi, tu parles de supprimer uniquement une procédure dans chaque module des feuilles, là ton code supprime TOUT, ce qui signifie que si tu as d'autres procédures, elles seront également supprimées

J'ai bien 12 feuilles avec le nom d'un mois les mois sont écrits automatiquement par le biais d'une boucle et d'un formatage de variable. L'erreur est l'accès par pogramme au projet VisualBasic n'est pas fiable.

Effectivement il y a des accents sur le nom des feuilles écriture en toutes lettres. voilà le code de génération des feuilles :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Copies_Feuil() Dim i%   Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 1 To 12 Sheets("TRAME").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = MonthName(i) ActiveSheet.Range("B1").Range("A1") = DateSerial(Year(Date), i, 1) ActiveSheet.Range("B1").Range("A1").NumberFormatLocal = "mmmm" Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True     Application.Dialogs(xlDialogSaveAs).Show (Range("B2").Value & ".xls") Application.Run "Supprimer_Code_Feuille" End Sub

---

Pour ce qui est de ne supprimer qu'une partie du code il faudrait que je fasse comment? :(

Ok je vois

tu vas dans l'onglet Developpeur
option Sécurité des macros
dans la fenêtre qui s'affiche, tu coches la case "accès approuvé au modèle de d'objet du projet VBA"

ça va régler ton erreur d'accès, c'est une sécurité VBA

concernant le fait de n'effacer que cette procédure, on a deux solutions :

- détecter le nom de ta Sub, et supprimer toutes les lignes jusqu'à tomber sur une ligne contenant "End Sub"
- mettre cette procédure en première position dans le module, comme ça on sait qu'elle commence à la ligne 1. Ensuite tu comptes combien de ligne représente cette procédure (18 dans ton exemple ci-dessus), et tu modifies la ligne de code de ta procédure comme ça :

Code:

---

.DeleteLines 1, 18

---

C'est parfait ça fait exactement ce que je veux. j'ai choisi l'option facile avec le nombre de lignes parce que ne suis pas très doué en programmation.

Merci beaucoup en tout cas!:)

Salut, pour une solution moins bestiale consulte : Visual Basic Editor

Au temps pour moi, bien vu Kiki29, je pensais que le lien de son début de message était justement cet excellent tutoriel que j'ai apprécié pour prendre en main le VBE par macro !


j'y suis donc retourné pour le fun ... et j'avais oublié ces deux petites propriétés :mrgreen:

Code:

---

1 2 3 4 5 6

'suppression de la macro nommée "essai" dans Module1 With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule Debut = .ProcStartLine("essai", 0) Lignes = .ProcCountLines("essai", 0) .DeleteLines Debut, Lignes End With

---

j'ai uniquement remplacé l'objet "Doc" (c'était un exemple Word) par l'objet Thisworkbook

Merci pour vos conseils et codes suggérés j'étudierai tout ça (avec le peu de neurones que j'ai) ... Vous me verrez poser encore des questions peut-être bêtes mais les réponses que vous faites répondent à des cas particuliers et aident à mieux comprendre.

:)