Suppression des lignes qui beugue
n
Bonjour;
Précédement, j'ai mis en marche un code qui fonctionnait très bien. il supprimer les lignes qur lesquelles on voyait apparaitre le mot "OPEX".
Sub SuppOpex()
Dim i As Long
'Cette macro efface l'ensemble des lignes pour lesquelles l'imputation affiche OPEX dans SAP/DEFI
With Sheets("SAP")
For i = .Range("P65536").End(xlUp).ROW To 2 Step -1
If .Cells(i, 16) = "OPEX" Then .Cells(i, 16).EntireRow.Delete
Next
End With
End Sub
Le problème c'est que j'ai plus de 4000 lignes à traiter et donc le débogeur m'indique une erreur à la ligne
If .Cells(i, 16) = "OPEX" Then .Cells(i, 16).EntireRow.Delete
Je vous remercie pour votre aide.
z
en ajoutant au début de ton code
Application.Calculation = xlCalculationManual