Discussion :

[guismoman60]

Bonjour,

je viens vers vous pour profiter de vos connaissances.

En effet, je viens de construire un code qui permet de supprimer des lignes d'un fichier qui ne m'intéresse pas.

Deux pages dans mon classeur :
- DATA : environ 170 000 lignes
- LISTE PF : Listing de mes produits qui m'intéresse environ 176

Aujourd'hui ma macro fonctionne mais elle prend environ 30mn pour traiter l'onglet Data.

Avez vous des idées pour optimiser le code?

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
Sub pic()
 
Dim nbre_ligne_data, nbre_ligne_pf, cpt_ligne_data, cpt_ligne_pf As Integer
Dim ref_data, ref_pf, supp As String
 
nbre_ligne_data = Workbooks("PICPDP.xlsm").Sheets("DATA").Cells(Rows.Count, 1).End(xlUp).Row
nbre_ligne_pf = Workbooks("PICPDP.xlsm").Sheets("LISTE PF").Cells(Rows.Count, 1).End(xlUp).Row
 
 
For cpt_ligne_data = 2 To nbre_ligne_data
    supp = "OUI"
    For cpt_ligne_pf = 2 To nbre_ligne_pf
        ref_data = Workbooks("PICPDP.xlsm").Sheets("DATA").Cells(cpt_ligne_data, 5).Value
        ref_pf = Workbooks("PICPDP.xlsm").Sheets("LISTE PF").Cells(cpt_ligne_pf, 1).Value
        If ref_data = ref_pf Then
            supp = "NON"
            Exit For
        End If
    Next
    If supp = "OUI" Then
       Rows(cpt_ligne_data).Delete
       cpt_ligne_data = cpt_ligne_data - 1
       supp = "OUI"
    End If
Next
 
 
End Sub

Merci d'avance

Vincent

[guismoman60]

Avec une fonction qui correspond à la rechercheV et qui supprime la ligne si ERREUR.

Ca n'irai pas plus vite?

Merci d'avance

Vincent

[BENNASR]

bonsoir
essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

et à la fin du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

[BENNASR]

voir avec ça :

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
Option Explicit
Sub test()
Dim Plage As Range,  i As Long, j As Long
Application.ScreenUpdating = False
With Sheets("LISTE PF")
j = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A2:A" & j)
End With
 
    With Worksheets("DATA")     
        For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
                If Application.CountIf(plage, .Cells(i, 5)) < 1 Then Cells(i, 1).EntireRow.Delete
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

[Philippe Tulliez]

Bonjour,
Avant même de parler de vitesse, il faudrait modifier la boucle.
Pour supprimer des lignes il faut partir de la dernière ligne vers la première et au lieu d'utiliser une chaîne de caractère "OUI", "NON" il est plus logique d'utiliser une variable booléenne voir un test logique immédiatement.

[Marc-L]

Avez vous des idées pour optimiser le code?

Bonjour,

oui : l'effacer intégralement car cela ne devrait pas dépasser une minute ou deux et ce manuellement donc sans code ‼

Ceci afin de respecter la règle primordiale : Penser Excel avant VBA !

Car une boucle est tout à fait inutile pour supprimer des lignes et c'est la raison d'une telle lenteur !
En effet, il suffit juste d'utiliser une colonne annexe pour distinguer les lignes à supprimer de celles à conserver
via une simple formule de calculs retournant VRAI ou FAUX ou encore 1 ou 0 …
Ensuite il suffit de trier la plage sur cette colonne regroupant ainsi les lignes à supprimer en un bloc en fin de liste.
Ne reste plus qu'à effacer (et non pas supprimer) ce bloc. Quelques exemples dans les discussions de ce forum …

___________________________________________________________________________________________________________
Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[guismoman60]

Merci beaucoup