Probleme pour supprimer des lignes

sokour · 1 Octobre 2009

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 · 1 Octobre 2009

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 · 1 Octobre 2009

Re : Probleme pour supprimer des lignes

Moi j'allais proposer ça:

Code:

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

Probleme pour supprimer des lignes

sokour

XLDnaute Occasionnel

Pièces jointes

stemsy

XLDnaute Nouveau

titiborregan5

XLDnaute Accro

Discussions similaires

Probleme pour supprimer des lignes

sokour

XLDnaute Occasionnel

Pièces jointes

stemsy

XLDnaute Nouveau

titiborregan5

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency