Suppression
Résolu
Bonjour,
Comment rajouter la condition compris entre -5000 et 5000 dans ce code, sachant que là cela me supprime uniquement les inférieurs à 5000
Merci d'avance,
Cordialement.
Comment rajouter la condition compris entre -5000 et 5000 dans ce code, sachant que là cela me supprime uniquement les inférieurs à 5000
Sub suppression()
Dim l As Long
For l = 15000 To 1 Step -1
If Cells(l, "M").Value < 5000 _
Then Cells(l, 1).EntireRow.Delete
Next l
'
End Sub
Merci d'avance,
Cordialement.
2 réponses
-
ContributeurBonjour,
si tu veux supprimer seulement les lignes dont la valeur en colonne M est entre -5000 et 5000, il faut remplacer tonIf Cells(l, "M").Value < 5000 _
parIf Cells(l, "M").Value < 5000 And Cells(l, "M").Value > -5000 _
Cordialement.
Ce mec la n'était pas une lumière, car il était niais. -
Contributeurbonjour
If Cells(l, "M").Value < 5000 And Cells(l, "M").value> -5000 then
astuce: pour éviter les sauts de l'écran et aller beaucoup + vite, insère cette ligne avant ta boucle
application.screenupdating=false
Michel
