- Supprimer tout : Modules, UserForms, procédures contenues dans ThisWorkbook et dans les feuilles (la procédure de suppression sera elle même supprimée)
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 Sub Supprimer_toutes_macros() Dim VBC As Object With ActiveWorkbook.VBProject For Each VBC In .VBComponents If VBC.Type = 100 Then With VBC.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else .VBComponents.Remove VBC End If Next VBC End With End Sub- Supprimer toutes les procédures contenues dans une feuille
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Supprimer_Code_Feuille() Dim NomFeuille As String NomFeuille = "Feuil1" With ActiveWorkbook.VBProject.VBComponents _ (ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With End Sub- Supprimer toutes les procédures contenues dans ThisWorkbook
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub Supprimer_Code_ThisWorbook() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With End Sub- Supprimer un UserForm
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub Supprimer_UserForm() Dim USF As String USF = "UserForm1" ActiveWorkbook.VBProject.VBComponents.Remove _ ActiveWorkbook.VBProject.VBComponents(USF) End Sub- Supprimer un Module
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub Supprimer_Module() Dim NomMod As String NomMod = "Module3" ActiveWorkbook.VBProject.VBComponents.Remove _ ActiveWorkbook.VBProject.VBComponents(NomMod) End Sub- Supprimer une Macro bien précise dans un Module
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_Macro_Precise() Dim Debut As Integer, Lignes As Integer Dim NomMod As String, NomMacro As String NomMod = "Module3" NomMacro = "Macro1" With ThisWorkbook.VBProject.VBComponents(NomMod).CodeModule Debut = .ProcStartLine(NomMacro, 0) Lignes = .ProcCountLines(NomMacro, 0) .DeleteLines Debut, Lignes End With End Sub- Supprimer tous les boutons dans toutes les feuilles
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Supprimer_Boutons() Dim Obj As OLEObject, X As Integer For X = 1 To Sheets.Count For Each Obj In Worksheets(X).OLEObjects If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete Next Obj Next X End Sub
Partager