Bonjour
J’ai le code suivant qui me permettre de supprimer toute ligne si les cellules F et G sont nulles a la fois.
Mon tableau (A : H) contient 20000 lignes alors le code commence de 1 aux 40000 lignes et après le code mon tableau devient de 1 au 43600.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 SubligneFetGvide() derniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = derniereLigne To 1 Step -1 If (Range ("F" & r)) = 0 And (Range ("G" & r)) = 0 ThenRows(r).Delete Next r End Sub
J’ajoute 125 lignes mon tableau maintenant contient 43725 lignes (43600+25) si je lance le code il va commencer de 1 au 43725 et ça prendre du temps. C’est-à-dire le code toujours commence de la première ligne.
Comment modifier ce code pour commencer de 43600 au 43725 c'est-à-dire la dernière ligne de l’ancienne exécution et ainsi de suite.
Merci
Partager