Aide pour une macro "suppression de lignes"

[SOYA]

Bonjour à vous,

Avant de poster ma question j'ai fait une recherche sur ce forum et je n'ai pas trouvé ma réponse.

Voici, je voudrais un code VBA, tout simple.

J'ai un tableau de A6 à L7344. Je voudrais supprimer toutes les lignes qui contiennent une valeur dans la colonne L, et garder celles ou L est vide.

Pouvez-vous m'aider ? Ce serait vraiment apprécié. Merci !

😕

 

[Pierrot93]

Re : Aide pour une macro "suppression de lignes"

Bonsoir Soya

essaye peut être le code ci dessous :

Sub test()
Dim i As Integer
For i = 7344 To 6 Step -1
If Not IsEmpty(Cells(i, 12)) Then Rows(i).Delete
Next i
End Sub

bonne soirée
@+

 

[ccpapy]

Re : Aide pour une macro "suppression de lignes"

bonsoir
peut-être avec

For Each c In Range("L6: L7344 ")
If c = "" Then Rows(c.Row).Delete
Next c

à tester

edit:
re pierrot; décidemment je devrai raffraichir la page avant, tu es toujours plus rapide que moi
bonne soirée

 

[SOYA]

Re : Aide pour une macro "suppression de lignes"

Un grand merci Pierrot ! Ça fonctionne à merveille !

Soya.

 

[Pierrot93]

Re : Aide pour une macro "suppression de lignes"

Re Soya, Bonsoir ccpapy

@ccpapy
attention avec les boucles "For each" lorsque tu delete, car si tu as 2 cellules consécutives qui répondent aux critères, seule la première sera supprimée.

bonne soirée
@+

 

[ccpapy]

Re : Aide pour une macro "suppression de lignes"

re,
merci Pierrot pour la précision, je ferai attention et regarderai un peu dans mes fichiers si je me sers de ce style de macro au boulot
bonne soirée à tous

 

[SOYA]

Re : Aide pour une macro "suppression de lignes"

Bonjour Pierre,

J'ai un problème avec le code... 😡

J'ai voulu travailler avec à tête reposée ce matin.

Il supprime toutes les lignes au lieu de ne supprimer que celles où il y a une valeur en colonne L...

Est-ce que c'est un cas "derrière l'écran" ou une amélioration à apporter au code ?

Merci pour votre disponibilité !

Re Soya, Bonsoir ccpapy

@ccpapy
attention avec les boucles "For each" lorsque tu delete, car si tu as 2 cellules consécutives qui répondent aux critères, seule la première sera supprimée.

bonne soirée
@+

 

[skoobi]

Re : Aide pour une macro "suppression de lignes"

Bonsoir,
bizzare ce qui t'arrive, le code de Pierrot93 devrait marcher.
Il faut savoir que si tu as juste un ou des espaces dans les cellules, elles ne sont pas vide.
Envoie un bout de ton fichier zippé < 48.8 ko contenant les cellules "vide".

 

[SOYA]

Re : Aide pour une macro "suppression de lignes"

Bonjour ! Une petite mise à jour...😛

Comment modifier ce code pour lui dire de supprimer les lignes dont les cellules en L sont vides, mais aussi en B ?

Merci !

 

[skoobi]

Re : Aide pour une macro "suppression de lignes"

Bonsoir,

en reprenant le code de Pierrot:

Sub test()
Dim i As Integer
For i = 7344 To 6 Step -1
If IsEmpty(Range("B" & i)) Or IsEmpty(Range("L" & i)) Then Rows(i).Delete
Next i
End Sub

 

[Staple1600]

Re : Aide pour une macro "suppression de lignes"

Bonsoir SOYA, skooby, le fil


Est-ce la même chose ?

Sub supCOL_B_COL_L_vides()
Dim r As Range
Dim rr As Range
Set r = Intersect(Columns("B"), ActiveSheet.UsedRange)
Set rr = Intersect(Columns("L"), ActiveSheet.UsedRange)
r.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
rr.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub