Supprimer lignes suivant une condition et une sélection

cline56100 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 10 avril 2013 à 08:12

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.

A voir également:

Supprimer lignes suivant une condition et une sélection
Supprimer rond bleu whatsapp - Guide
Supprimer une page word - Guide
Excel cellule couleur si condition texte - Guide
Comment supprimer une application préinstallée sur android - Guide
Supprimer pub youtube - Accueil - Streaming

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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

Discussions similaires

Comment supprimer une conversation Messenger pour les 2 personnes ?

PIX

Votre réponse

Discussions similaires