Bonjour chers tous,
Je suis nouveau sur le forum...
J'ai un soucis avec VBA:
J'ai deux feuilles (TDB et Références).
Mon programme consiste à supprimer dans la feuille TDB les lignes où la valeur de la cellule Cells(i, 35) est différente de celle de la cellule cells(4, 8) de la feuille Référence.
La suppression se passe bien. Mon soucis est que l’exécution de mon programme met assez de temps (plus de 20 minutes) car la feuille TDB comporte 84.000 lignes.
Ci-dessous le programme. Merci de bien vouloir m'aider à alléger mon programme.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 For i = 110 To (maLigne1 + 100) If Sheets("Références").Cells(4, 8).Value <> Sheets("TDB").Cells(i, 35).Value Then If Sheets("TDB").Cells(i, 35).Value = "" Then Exit Sub Else Sheets("TDB").Range(Cells(i, 1), Cells(i, 47)).EntireRow.Delete i = i - 1 End If End If Next
Partager