Discussion :

[Grem974]

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 :

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

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!

[joe.levrai]

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

[Grem974]

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 :

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

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?

[joe.levrai]

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 :

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

.DeleteLines 1, 18

[Grem974]

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!

[kiki29]

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