Supprimer 8 lignes y compris celle de la cellule

[Daroumx]

Bonjour,


Je suis assez novice en VBA ... bon disons que j'utilisais uniquement l'enregistreur de macro Donc, ce que j'essaie de faire c'est de supprimer la ligne avec la valeur de la cellule active dans la colonne A = ********* puis ensuite supprimer les 7 lignes qui suivent la 1ere cellule dans la colonne A avec la valeur = *********
Exemple :

A B C D E
1 **
2 **
3 **
4
5
6
7
8 **
9

Donc dans ce cas la il faut supprimer la ligne 1,2,3,4,5,6,7 et 8 . Des fois les "**" se répètent aussi dans les autres lignes à savoir de 2 à 8 mais pas plus. En somme il faut supprimer les 8 lignes qui se suivent à partir de la 1ere apparition de la valeur ********* dans une des cellules de la colonne A.
(j'ai essayé d'insérer un tableau mais je n'ai pas su comment faire ...)

J'ai essayer ce code que voici (je ne suis pas du tout fort en VBA c'est la 2ème macro que je réalise moi-même):

Sub SelectAndErase()
Dim L As Integer
Const LigneDebut = 1
Const LigneFin = 8153
For L = LigneDebut To LigneFin Step 1
If Cells(L, 1) = "~*********" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next
End sub

Voila en vous remerciant d'avance.

 

[kingfadhel]

Re : Supprimer 8 lignes y compris celle de la cellule

Salut,
Si j'ai bien compris:

à essayer le code suivant:



Sub SelectAndErase()
Dim L As Integer
Const LigneDebut = 1
Const LigneFin = 8153
For i = 1 To 8153 Step 1
If Left(Range("A" & i), 1) = "*" Then
Range("A" & i & ":A" & i + 7).Select
Selection.EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

 

[Daroumx]

Re : Supprimer 8 lignes y compris celle de la cellule

Salut,

Je vous remercie pour vos réponses rapides.Les 2 codes fonctionnent à merveille,et je vous remercie Jean-marcel pour l'indication concernant les "select".

Bonne fin de journée à vous.
Daroumx