EXCELERATOR
XLDnaute Junior
Bonjour,
J'ai un fichier qui me permet de traiter des données.
J'ai une macro pour supprimer les lignes, mais elle est très très lente... sniff
Si quelqu'un a une idée pour la booster ?
Merci
Sub ETAPE2B()
Dim i As Long
For i = [A8001].End(xlUp).Row To 2 Step -1
Select Case Left(Cells(i, 1), 2)
Case "", "0"
Rows(i).Delete
End Select
Next i
End Sub
J'ai un fichier qui me permet de traiter des données.
J'ai une macro pour supprimer les lignes, mais elle est très très lente... sniff
Si quelqu'un a une idée pour la booster ?
Merci
Sub ETAPE2B()
Dim i As Long
For i = [A8001].End(xlUp).Row To 2 Step -1
Select Case Left(Cells(i, 1), 2)
Case "", "0"
Rows(i).Delete
End Select
Next i
End Sub