Bonjour tout le monde,
Mon code VBA semble n'avoir acun problème puisque je le test sur une petite base de données il marche correctement mais une fois que je l'applique à ma base de données originale, il plante le classeur Excel sur le quel je travaille. Bref, je veux supprimer toutes les lignes dont les cellules de la colonne F ont une valeur de 0.
Voici le code que j'ai développé.
Merci d'avance.
Sub Cells_Delete()
' Optimisation de vitesse
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Worksheets("Tableau du PI Rend Fam Rend Per").Activate
Dim n%, i%
Application.ScreenUpdating = False
With Worksheets("Tableau du PI Rend Fam Rend Per")
n = .Range("F" & .Rows.Count).End(xlUp).Row
For i = n To 2 Step -1
If Range("F" & i) = 0 Then .Range("F" & i).EntireRow.Delete
Next i
End With
'Message de fin
MsgBox "Done"
ResetSettings:
'Reseter les param?tre de macro optimazer
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub