VBA execution trop lente

[Kouik Kouik jr]

Bonjour tout le monde !

Je reviens vous demander de l'aide car je n'arrive pas a rechercher les cellules correspondantes avec mon code ci dessous.
En effet celui ci doit comparer environ 7000 lignes sur la feuille Symbol avec 250 lignes sur la feuille Syt et il bloque du fait du trop grand nombre de données sue la feuille symbol (cela marche avec 300 valeurs sur la feuille Symbol)

Quelqu'un pourrait il m'aider ou me donner plus d'indications pour éviter ce problème ( on m'a parlé d'array est ce que cela peut aider?)

Merci d'avance 🙂

Sub x()

'Recherche ID finales

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    With Sheets("Symbol")
    Déb = 2
    Fin = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
    With Sheets("Syt")
    I = 3
    Do While I < Fin
    For J = Déb To Fin
        If .Range("a" & I).Value = Sheets("Symbol").Range("a" & J).Value Then .Range("b" & I).Value = Sheets("symbol").Range("b" & J).Value
    Next J
    I = I + 1
    Loop
    End With
    
     Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

 

[Cousinhub]

Re : VBA execution trop lente

Bonjour,

essaie une autre méthode...

En supposant tes données de la feuille "Syt" uniques dans la feuille "Symbol"..

Sub x()
Dim Cel As Range
Application.ScreenUpdating = False
Set fsy = Sheets("Symbol")
With Sheets("Syt")
    For Each Cel In .Range("A2:A" & .[A65000].End(xlUp).Row)
        Set c = fsy.Columns(1).Find(Cel.Value)
            If Not c Is Nothing Then
                .Cells(Cel.Row, 2).Value = fsy.Cells(c.Row, 2).Value
            End If
    Next Cel
End With
Application.ScreenUpdating = True
End Sub

 

[Kouik Kouik jr]

Re : VBA execution trop lente

Merci bcp

c'est impeccable

Bon week end !!!🙂