VBA Suppression ligne en fonction d'une condition & d'une zone Fermé

Question

Bonjour,  

Je voudrais créer une macro me permettant de supprimer les lignes pour lesquelles la colonne E est vide mais cela uniquement dans certaines zones. 

En clair je voudrais que pour les zone de E15 à E24 et de E27 à E36 et de E38 à E57 si la case est vide l'exécution de la macro supprime la ligne entière. 

Pour le moment j'ai cela mais lors de l'exécution cela supprime également des lignes hors des zones: 


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 prendons le temps de m'aider 



Configuration: Windows 7 / Chrome 23.0.1271.97

f894009 · Answer

Bonjour, Attention, cela ne sera valable qu'une seule fois!!!!!!! Sub test() 'En clair je voudrais que pour les zone de E15 à E24 et de E27 à E36 et de E38 à E57 si la case est vide Dim cel As Integer For cel = 57 To 15 Step -1 If Range("E" & cel) = "" And cel <> 37 And (cel > 26 Or cel < 25) Then Rows(cel & ":" & cel).Delete Shift:=xlUp End If Next cel End Sub

michel_m · Answer

DOUBLON !!! 

Bravo pour le B....L

voir une autre proposition

https://forums.commentcamarche.net/forum/affich-27557284-supprimer-lignes-suivant-une-condition-et-une-selection

VBA Suppression ligne en fonction d'une condition & d'une zone

2 réponses

Discussions similaires

Newsletters