Probleme pour supprimer des lignes

[sokour]

Bonjour,

Je vous joint mon fichier avec une macro pour supprimer en fonction d'une colonne si le statut est refuse la ligne est supprime.

Je lance la macro mais rien ne marche.

Pouvez vous voir ou mon code ne fonctionne pas .

Merci

 

[stemsy]

Re : Probleme pour supprimer des lignes

Bonjour ,

tu peux essayer cela

Stephane

Sub suppression_REFUSE()

Dim m As Integer
Application.ScreenUpdating = False

For m = ActiveSheet.Range("D500").End(xlUp).Row To 2 Step -1
If ActiveSheet.Range("D" & m) = "REFUSE" Then
Rows(m).EntireRow.Delete
End If
Next

Application.ScreenUpdating = True

End Sub

 

[titiborregan5]

Re : Probleme pour supprimer des lignes

Moi j'allais proposer ça:

Sub effacerligne()
lastrow = Range("D60000").End(xlUp).Row
For I = 1 To lastrow
If Cells(I, 4) = "REFUSE" Then
Rows(I).Delete
End If
Next I
End sub

Ca marche aussi, mais quelle est la différence? J'ai appris tout seul les macros, du coup je ne connais pas bien les dim as etc