Supprimer lignes suivant une condition et une sélection Fermé

Question

Bonjour,

je voudrais créer une macro qui me permette de supprimer des lignes en fonction d'une sélection et d'une condition.

Plus précisément je voudrais que si des cases de la colonne E sont vides dans les sélections (de E15 à E24 et de E27 à E36 puis de E38 à E57) les lignes correspondantes soit supprimées.

Par exemple si E16 est vide alors on supprime la ligne 16.

Pour le moment j'ai écris cela en m'inspirant d'autre réponse trouvées sur des forums mais cela me supprime également des lignes qui ne sont pas dans la sélection.

Sub suppr()
    Dim n As Integer
    Application.ScreenUpdating = False
    For n = Range("E65536").End(xlUp).Row To 1 Step -1
    If Range(("E" & n) = "") Then
    Rows(n).Delete
    End If
    Next n
End Sub

Merci d'avance à ceux qui prendrons le temps de m'aider.

michel_m · Answer

Bonjour,

sans boucle et en s'inspirant de l'enregistreur de macro
 
Sub xxxx()
On Error Resume Next
Range("E15:E24,E27:E36,E38:E57").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
End Sub

Supprimer lignes suivant une condition et une sélection

1 réponse

Discussions similaires