Suppression de lignes sous conditions

Bonjour,

J'aimerais supprimer des lignes sous conditions : à savoir si les colonnes A = 2 ou B=2 ==> suppression de toute la ligne :

J'ai ecris ce code :

Sub SupprimerLignes()

Sheets("DEPART").Activate

DerLigne = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLigne

If Range("A" & i).Value = 2 Or Range("B" & i).Value = 2 Then

Range.EntireRow.Delete

End If

Next i

End Sub

et il me met :

Merci beaucoup pour ce que vous pourrez m'éclairer

Bonsoir le forum, Jade Mio,

A tester comme ceci.

Sub SupprimerLignes()

 Application.ScreenUpdating = False

Sheets("DEPART").Activate

    iRow = Range("A" & Rows.Count).End(xlUp).Row
        For x = iRow To 2 Step -1
            If Range("A" & x).Value = 2 Or Range("B" & x).Value = 2 Then Rows(x).Delete Shift:=xlUp
        Next

End Sub

Cordialement.

merci beaucoup, ça fonctionne parfaitement

j'ai un code simple à effectuer et j'ai ce messge d'erreur :

le code est celui ci :

Sub reattributions()

Sheets("DEPART").Activate

Range("AR").Value = "QC00141_rea"

DerLigne = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLigne If Range("G" & i).Value = 1 Then

Range("AR" & i) = Range("H" & i)

ElseIf Range("G" & i).Value = 2 

Then Range("AR" & i) = ""

ElseIf Range("G" & i).Value = 3 Then

Range("AR" & i) = 1 End If Next i End Sub

je ne sais pas d'où peut venir l'erreur, merci beaucoup si jamais vous pouvez me dire d'où cela vient car le code marchait dans un autre module

Bonjour à tous,

Cette syntaxe est incorrecte, tu dois préciser la ligne...

Range("AR").Value = "QC00141_rea"

Cordialement,

merci beaucoup !