Suppression de lignes avec deux conditions dans un Range

[Kernoz]

Bonjour à tous,

Je cherche à supprimer les lignes entieres d'un range sous deux conditions :

Condition 1 : La valeure de la colonne "E" = 0
Condition 2 : La valeure de la colonne "F" = 0

Je voudrais travailler sur un range précis : Range("A6").CurrentRegion

J'ai essayé plusieurs solutions sans succes, ou alors des codes qui marchent mais qui ont ... comment dire ... des éffets secondaires !

Merci d'avance pour votre aide, le fichier exemple est en pièce jointe. 😀

 

[roro69]

Re : Suppression de lignes avec deux conditions dans un Range

Bonsoir à essayer:

Sub supprime()
Dim c As Range
Dim plage1 As Range
Set plage1 = Range("a8:a" & Range("a65536").End(xlUp).Row)
For Each c In plage1 'Boucle dans la sélection
If c.Offset(0, 4).Value = 0 And c.Offset(0, 5).Value = 0 Then
c.EntireRow.Delete 'SUPPRIMER
End If
Next c
End Sub

A++

 

[Papou-net]

Re : Suppression de lignes avec deux conditions dans un Range

Bonsoir Kernoz, roro69,

Je l'ai fait d'un manière un peu différente alors je l'envoie.

Cordialement.

 

[phlaurent55]

Re : Suppression de lignes avec deux conditions dans un Range

Bonjour à tous,

avec ce code:

Sub Macro1()
For i = Range("A65535").End(xlUp).Row To 7 Step -1
If Cells(i, 6) = 0 And Cells(i, 7) = 0 Then Rows(i).Delete
Next i
End Sub

à+
Philippe

 

[Kernoz]

Re : Suppression de lignes avec deux conditions dans un Range

Merci à tous !