Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub test() 'Nécéssite d'activer la référence '"Visual basic For Application Extensibility 5.3" ' Dim Wb As Workbook Set Wb = Workbooks("Classeur1.xls") SupprimerMacroPrecise Wb, "Module3", "Macro1" 'Un autre exemple pour supprimer un procédure évènementielle 'SupprimerMacroPrecise Wb, "ThisWorkbook", "Workbook_Open" End Sub Sub SupprimerMacroPrecise(Wb As Workbook, Mdl As String, NomMacro As String) Dim Debut As Integer, Lignes As Integer With Wb.VBProject.VBComponents(Mdl).CodeModule Debut = .ProcStartLine(NomMacro, 0) Lignes = .ProcCountLines(NomMacro, 0) .DeleteLines Debut, Lignes End With End Sub
comment tu fais pour créer le nombre de feuille que tu veux avec le nom de la feuille désiré?
ActiveWorkbook.sheets.add
ActiveSheet.name = "Nom_de_ma_Feuille"
Sub suppr_Feuilles() 'compte le nombre de feuilles dans le classeur actif Nb_Feuilles = ActiveWorkbook.Sheets.Count 'boucle sur les feuilles pour les supprimer (sauf la dernière) For i = 1 To Nb_Feuilles - 1 'de la feuille 1 à nb -1 Application.DisplayAlerts = False 'ne pas afficher les message d'erreur Sheets(i).Delete ' Suppression de la feuille numéro i Application.DisplayAlerts = True 're-activer les messages d'erreur Next End Sub
Sub Tester_existence_Feuille() FE = FExist("Feuil1") End Sub Function FExist(NomF As String) As Boolean ' test si la feuille existe ' NomF => Nom de la feuille à tester ' La fonction Retourne Vrai si elle existe, sinon Faux Application.ScreenUpdating = False On Error Resume Next FExist = Not Sheets(NomF) Is Nothing Application.ScreenUpdating = True End Function