Salut,
Mon problème vient du fait que ma macro est assez lente
Certains de mes fichiers excel font plus de 20000 ligne et le but de cette macro est de diviser se nombre par un facteur de mon choix.
Je commence de supprimer des lignes à partir de la ligne 8
Ce que je voudrais savoir est s'il existe une autre commande plus rapide que Row().Delete
Merci
Mon problème vient du fait que ma macro est assez lente
Certains de mes fichiers excel font plus de 20000 ligne et le but de cette macro est de diviser se nombre par un facteur de mon choix.
Je commence de supprimer des lignes à partir de la ligne 8
Ce que je voudrais savoir est s'il existe une autre commande plus rapide que Row().Delete
Merci
Code:
Sub reduction()
'
Application.ScreenUpdating = False
Dim Ligne As Long
Ligne = Range("D1").End(xlDown).Row
Dim div, iter, i As Integer
div = InputBox("Par combien diviser le nombre de point")
iter = 7
i = 1
Do While iter < 7 + (Ligne - 7) / div
iter = iter + 1
Do While i < div
i = i + 1
Rows(iter).Delete Shift:=xlUp
Loop
i = 1
Loop
End Sub