Bonjour a tous,

J’ai mis en place une macro qui me permet de supprimer des lignes selon des conditions.

Mon problème vient de la taille des fichiers Excel qui pour certains dépassent les 60.000 lignes. Du coup je me prends un message d’erreur « Erreur d’exécution ‘6’ dépassement de capacité ».

J’ai triche provisoirement en divisant le fichier en deux mais bon… Par la suite je vais avoir des fichiers Excel volumineux.

Je pense à un problème d’affectation des variables. Qu’en dites-vous ?

Merci d’avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub DEL_INGP()
'
' Format_file Macro
'
Application.ScreenUpdating = False
 
Dim targetSheet As Worksheet
Dim i As Integer
 
'
On Error GoTo Openfilerror
Workbooks.Open Application.GetOpenFilename(Title:="Please select the file with the INGP counterpart (xls file)")
On Error GoTo 0
 
i = 2
While Not IsEmpty(Cells(i, 16))
i = i + 1
Wend
 
For i = 2 To i
    If Cells(i, 16).Value = "INGP" Then
    Cells(i - 1, 16).EntireRow.Delete
    End If
Next i
 
  MsgBox "INGP counterparts have been deleted"
 
Openfilerror:
    Exit Sub
End Sub
Cordialement