Optimisation de code : possible?

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:

---

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

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

Ca n'irai pas plus vite?

Merci d'avance

Vincent

bonsoir
essayer avec

Code:

---

Application.ScreenUpdating = False

---

et à la fin du code

Code:

---

Application.ScreenUpdating = True

---

voir avec ça :

Code:

---

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

---

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.

Citation:

---

Envoyé par guismoman60

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, …

Merci beaucoup