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
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