Supprimer plusieurs lignes avec condition
F
Bonjour à tous,
je souhaites faire appel à vos talents en vba, étant moi-même tout à fait novice.
Mon but est de supprimer les 30 lignes qui suivent la cellule (A617), à la condition que celle-ci soit vide.
J'y arrive mais celà prend un temps fou du fait de la pauvresse de mon code.
Avez-vous une idée sur comment supprimer les 30 lignes suivantes ?
Merci.
Voici le code :
Sub Supprimerlignes()
Dim i%
For i = 617 To 577 Step -40
If Cells(i, 1) = "" Then
Rows(i + 1).Delete Shift:=xlUp
Rows(i + 1).Delete Shift:=xlUp
Rows(i + 1).Delete Shift:=xlUp
Rows(i + 1).Delete Shift:=xlUp
Rows(i + 1).Delete Shift:=xlUp
Rows(i + 1).Delete Shift:=xlUp
'etc....
End If
End Sub
Bonjour
FlorentS a écrit :Mon but est de supprimer les 30 lignes qui suivent la cellule (A617)
Sub Suppression()
If Range("A617") = "" Then Rows(617 + 1 & ":" & 617 + 30).Delete
End Sub