Macro Excel suppression lignes
Résolu/Fermé
A voir également:
- Macro Excel suppression lignes
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Forcer suppression fichier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
2 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
16 avril 2009 à 12:57
16 avril 2009 à 12:57
Salut,
Essaie
Essaie
Sub suppr_lignes_condition_cellule()
Dim lg as Long, r as Long
With ActiveSheet.UsedRange
lg = .Row + .Rows.Count - 1
End With
For r = lg To 1 Step -1
If Cells(r, 4) = 0 Then ' cellule de la colone D
Rows(r).Delete
End If
Next r
End Sub
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
16 avril 2009 à 13:33
16 avril 2009 à 13:33
Re,
Pour gagner un peu en vitesse
Pour gagner un peu en vitesse
Sub suppr_lignes_condition_cellule()
Dim lg as Long, r as Long
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
lg = .Row + .Rows.Count - 1
End With
For r = lg To 1 Step -1
If Cells(r, 4) = 0 Then ' cellule de la colone D
Rows(r).Delete
End If
Next r
Application.ScreenUpdating = True
End Sub
16 avril 2009 à 13:31
Merci beaucoup :)