Discussion :

[JOHN14]

Bonjour à tous,

Quelqu'un saurait par quel moyen le code VBA d'un module pourrait effacer le code VBA associé à un onglet.

Merci.

[Vadorblanc]

Bonjour
Essaie ce code qui fonctionne pour moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Vous devez connaître le nom de la macro et le nom du module dans lequelle elle se trouve.
'Vous devez ajouter la référence "Microsoft visual Basic For Application Extensenbility x.x" à votre projet
 
    'Supprimer la macro nommée "MaMacro" dans le "module3"
Sub supprimerUneMacroPrecise()
Dim Debut As Integer, Lignes As Integer
 
   With ThisWorkbook.VBProject.VBComponents("Module3").CodeModule
        Debut = .ProcStartLine("MaMacro", 0)
        Lignes = .ProcCountLines("MaMacro", 0)
       .DeleteLines Debut, Lignes
'   End With

Cordialement

[JOHN14]

Merci,

Ce code me permet d'accéder au code d'un onglet d'un classeur avec le code d'un module d'un autre classeur.

Le problème est que ".DeleteLines" ne fonctionne pas et provoque une erreur :
"Argument ou appel de procédure incorrect"

Je cherche toujours...

[Vadorblanc]

A faire aussi

Outils/Macro/Sécurité/Editeurs approuvés et cocher Faire confiance au projet Visual Basic

Cordialement

[JOHN14]

Rectifications :

La méthode ".DeleteLines" fonctionne quand je l'applique par exemple sur la procédure "Worksheet_Activate". La procédure est effectivement supprimée.

Je que je voudrais, c'est supprimer toutes les lignes. Et ça je n'y arrive pas encore.

A suivre.

[JOHN14]

Trouvé !

Code :

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

1
2
3
4
5
6
 
    With VBC.codemodule
 
       .DeleteLines 1, .CountOfLines
 
    End With

Me permet de supprimer tout le code associé à un onglet

Merci encore.

[Vadorblanc]

Je viens de vérifier, toutes les lignes sont supprmées

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MaMacro()
'Supprimer la macro nommée "MaMacro" dans le "module3"
 
Dim Debut As Integer, Lignes As Integer
 
    With ThisWorkbook.VBProject.VBComponents("Module3").CodeModule
        Debut = .ProcStartLine("MaMacro", 0)
        Lignes = .ProcCountLines("MaMacro", 0)
        .DeleteLines Debut, Lignes
    End With
End Sub