suppression selective de ligne dans thisworkbook

[dj.run]

Bonjour à toutes et à tous

on m'a donné un exemple pour supprimer le contenu de thisworkbook :

Sub termin()

Range("al23") = ActiveWorkbook.Name
If Range("al23") <> Range("al24") Then
With ActiveWorkbook.VBProject.VBComponents ("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With

ActiveWorkbook.Save

End If
End Sub

mais y a t'il possibilite de ne supprimer que certaines lignes ?

merci d'avance pour votre aide

dj.run

 

[zon]

Bonjour à tous,


Dj.run,Countlofines supprime toutes les lignes du module :


si tu veux supprimer la ligne 4 et 5, c un peu le même principe que left ou right, tu mets le point de départ à 4 pour 2 lignes.

With ActiveWorkbook.VBProject.VBComponents ("ThisWorkbook").CodeModule
.DeleteLines 4, 2
End With


Attention aprés avoir supprimée une ligne dans un module les lignes sont runumérotées automatiquement....



A+++