VBA boucle trop lente comment la rendre plus rapide

[Kouik Kouik jr]

Bonjour a tous,

J'ai un problème de boucle qui bug,
Le but est de supprimer toutes les lignes de la feuil "Symbol" dont les cellules (texte) de la colonne A ne correspondent pas aux cellules de la colonne A de la feuille "SYZ".

Le problème c'est qu'il y'a grosso merdo 7400 lignes dans la feuil "Symbol" a comparer.


Merci d'avance pour votre aide 🙁

Voici le code qui ne marche pas (je vois pas pourquoi)



Sub Essai()

Dim Déb As Integer, Fin As Integer, I As Integer, j As Integer

With Sheets("Syz")
Déb = 2
Fin = .Range("a" & .Rows.Count).End(xlUp).Row
End With
With Sheets("Symbol")
I = 2
Do While I < Fin
For j = Déb To Fin
If .Range("a" & I).Value <> Sheets("Syz").Range("a" & j).Value Then .Rows(I).Delete

Next j
I = I + 1

Loop

End With


End Sub

 

[Cousinhub]

Re : VBA boucle trop lente comment la rendre plus rapide

Bonjour,

si j'ai bien compris.....

essaie avec ce code :

Sub Essai()
Application.ScreenUpdating = False
Dim J As Long
With Sheets("Symbol")
    For J = .[A65000].End(xlUp).Row To 2 Step -1
        If IsError(Application.Match(.Cells(J, 1).Value, Sheets("Sys").Columns(1), 0)) Then _
            .Rows(J).Delete
    Next J
End With
End Sub

PS, quand tu postes un code, pense à le mettre entre balises
Tu cliques sur #, en haut, et tu colles ton code entre :
[CODE ] ICI [/CODE ]

 

[Kouik Kouik jr]

Re : VBA boucle trop lente comment la rendre plus rapide

Il me met un message d'erreur "Next sans For"

alors que le For y est !

Je comprends pas...😱

 

[Cousinhub]

Re : VBA boucle trop lente comment la rendre plus rapide

Re,

tu as bien copié "TOUT" le code?

regarde, à la fin de la ligne

If IsError(Application.Match(.Cells(J, 1).Value, Sheets("Sys").Columns(1), 0)) Then _
            .Rows(J).Delete

il y a un retour à la ligne ( _ )

 

[Kouik Kouik jr]

Re : VBA boucle trop lente comment la rendre plus rapide

C'est bon ?

J'ai rajouté un End If et le tour est dans le sac


Merci mille fois 🙂