VBA Suppression ligne en fonction d'une condition & d'une zone
cline56100
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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
2 réponses
-
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 -
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
