suppression selective de ligne dans thisworkbook

dj.run · 25 Juin 2003

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 · 25 Juin 2003

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+++

suppression selective de ligne dans thisworkbook

dj.run

Guest

zon

Guest

Discussions similaires