Probleme de suppression de ligne

[Guigui]

Bonjour le forum,

Voici mon souci,

je souhaite supprimer des lignes vides sous conditions
j'utilise pour ceci le code suivant :

Dim Plage As Range
Dim Cell As Range
With ActiveSheet
Set Plage = .Range(.Range("G1"), .Range("G65536").End(xlUp))
End With
For Each Cell In Plage
If Cell = "" And Cell.Offset(0, -3) = "" Then Cell.EntireRow.Select
Next Cell

Mais une fois la ligne supprimer et le "next cell" engagé, je me retrouve avec un décalage et donc des lignes ne sont pas "verifiés".

l'idée serais de recommencer le code à la fin jusqu'a ne plus avoir de lignes vides .. Mais je me doute bien qu'un autre moyen existe ...

Merci de votre aide.
Guillaume

 

[Bebere]

Re : Probleme de suppression de ligne

bonjour Guigui
essaye ce code

Public Sub SupprimeLignes()
Dim L As Long, DerL As Long

With ActiveSheet
DerL = .Range("G65536").End(xlUp).Row
For L = DerL To 2 Step -1
If .Cells(L, "G") = "" And .Cells(L, "D") = "" Then .Rows(L).EntireRow.Delete
Next L
End With

End Sub

à bientôt

 

[kjin]

Re : Probleme de suppression de ligne

Bonjour,
Il faut boucler depuis la dernière ligne

Dim i As Long, DerLign As Long
Application.ScreenUpdating = False
With ActiveSheet
DerLign = .Range("A65536").End(xlUp).Row
    For i = DerLign To 2 Step -1
        If .Cells(i, 4) = "" And .Cells(i, 7) = "" Then .Rows(i).Delete
    Next i
End With
Application.ScreenUpdating = True

Edit : Bonjour Bebere 🙂, il vaut peut-être mieux à mon sens tester la dernière ligne en colonne A
A+
kjin

 

[Bebere]

Re : Probleme de suppression de ligne

bonjour Kjin
tout à fait raison
à bientôt

 

[Guigui]

Re : Probleme de suppression de ligne

Re,
Merci beaucoup, c'est parfait.
Juste pouvez vous m'expliquer le fonctionnement, je comprenais mon code mais là, j'avoue je bute sur le "For i = DerLign To 2 Step -1"

merci encore.
Guillaume

 

[Bebere]

Re : Probleme de suppression de ligne

bonjour Guigui
active la fenêtre variables locales(menu affichage) et exécute le code pas à pas(touche fonction F8)
et tu sauras tout
à bientôt