Bonsoir,
Je cherche à améliorer cette procédure afin de me permettre de supprimer tout le code
si le nom de la feuille commence par "Database" sachant que j'ai une quarantaine de feuille commencant par "Database1" à "Database40"
Le code ci dessous fonctionne bien et supprime le code de la feuill1
Sub test()
Dim Wb As Workbook, NomClasseur As String, NomFeuil As String
NomClasseur = ThisWorkbook.Name
NomFeuil = "feuil1"
Set Wb = Workbooks(NomClasseur)
With Wb.VBProject.VBComponents("Feuil1").CodeModule
For i = .CountOfLines To 1 Step -1
.DeleteLines i
DoEvents
Next
End With
End Sub
Merci de votre aide
Je cherche à améliorer cette procédure afin de me permettre de supprimer tout le code
si le nom de la feuille commence par "Database" sachant que j'ai une quarantaine de feuille commencant par "Database1" à "Database40"
Le code ci dessous fonctionne bien et supprime le code de la feuill1
Sub test()
Dim Wb As Workbook, NomClasseur As String, NomFeuil As String
NomClasseur = ThisWorkbook.Name
NomFeuil = "feuil1"
Set Wb = Workbooks(NomClasseur)
With Wb.VBProject.VBComponents("Feuil1").CodeModule
For i = .CountOfLines To 1 Step -1
.DeleteLines i
DoEvents
Next
End With
End Sub
Merci de votre aide