VBA Suppression ligne en fonction d'une condition & d'une zone
cline56100
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- VBA Suppression ligne en fonction d'une condition & d'une zone
- Alternative zone telechargement - Accueil - Outils
- Fonction si et - Guide
- Forcer suppression fichier - Guide
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
2 réponses
Bonjour,
Attention, cela ne sera valable qu'une seule fois!!!!!!!
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
Bravo pour le B....L
voir une autre proposition
https://forums.commentcamarche.net/forum/affich-27557284-supprimer-lignes-suivant-une-condition-et-une-selection