Optimiser une macro

Bonjour,

Y'a-t-il quelqu'un qui pourra m'aider à optimiser cette macro?

Merci d'avance

Bonjour,

Je reviens vers vous pour un petit coup de main.
Car j'ai réussi à optimiser toutes les autres macro.
Mais il y'a une que je n'arrive pas à faire. Elle ralentit considérablement le traitement de mes données.

Merci d'avance

LgMax = Application.WorksheetFunction.Max(LgLigA, LgLigB)
CoMax = Cells(1, Columns.Count).End(xlToLeft).Column
For lgLig = 2 To LgMax
' Colonnes : D à AO
For lgCol = 2 To CoMax
' Une différence est trouvée dans une ligne
If wsFicA.Cells(lgLig, lgCol).Value <> wsFicB.Cells(lgLig, lgCol).Value Then
' Affichage du nom du fichier en colonne A
wsFicAna.Range("A" & lgLigDeb).Value = wbFicA.Name
' Copier la ligne du fichier A dans le fichier d'analyse
wsFicA.Range("A" & lgLig & ":" & "AX" & lgLig).Copy _
Destination:=wsFicAna.Range("C" & lgLigDeb)

' Affichage du nom du fichier en colonne A
wsFicAna.Range("A" & lgLigDeb + 1).Value = wbFicB.Name
' Copier la ligne du fichier B dans le fichier d'analyse
wsFicB.Range("A" & lgLig & ":" & "AX" & lgLig).Copy _
Destination:=wsFicAna.Range("C" & lgLigDeb + 1)

lgLigDeb = lgLigDeb + 2

Exit For
End If
Next lgCol
Next lgLig

Merci à tous je vais tester et je vous tiendrai au courant.

Bonjour,

Lire et écrire des cellules est très lent, il faut que tu travailles en mémoire.
Je n'ai pas trop le temps de faire ton fichier mais je t'ai fait un exemple.
Si c'est toi qui a fait ton code je ne doute pas que tu comprendras très vite le principe :
charger dans des variables toutes les données en une lecture, et travailler avec les variables.
Pareil pour l'écriture : tout écrire en une fois.
100 fois plus rapide au minimum.
https://www.cjoint.com/c/CGzoFLCVLSZ

eric

Bonjour,

Essayes cette Macros, elles transfère toutes les données de ton tableau dans une Table Virtuel et traite le tout virtuellement.

Une fois tout les résultat obtenu

elle vient agrémenterr ta colonne B sur la feuille

LgMax1 = Cells(Rows.Count, 1).End(xlUp).Row
CoMax1 = Cells(1, Columns.Count).End(xlToLeft).Column

ReDim TBL_Original(LgMax1, ColMax1)

For i = 2 To LgMax1
For u = 1 To CoMax1
TBL_Original(i, u) = wsFicAna.Cells(i, u).Value
Next u
Next i

For LgAna = 2 To LgMax1
For LgAnab = 2 To LgMax1
' Un doublon est trouvé dans une ligne
If TBL_Original(LgAna, 4) = TBL_Original(LgAnab, 4) _
And LgAnab <> LgAna _
And TBL_Original(LgAna, 4) <> "" Then
TBL_Original(LgAna, 2) = "UP"
Exit For
End If
Next
Next

For i = 2 To LgMax1
wsFicAna.Cells(i, 2).Value = TBL_Original(i, 2)
Next i

Bonjour,

    Dim Plage As Range, Cel As Range
    Set Plage = wsFicAna.Range("D2:D" & wsFicAna.Range("A" & Rows.Count).End(xlUp).Row)
    Application.ScreenUpdating = False
    For Each Cel In Plage
        If Application.CountIf(Plage, Cel.Value) > 1 And Cel.Value <> "" Then Cel.Offset(0, -2).Value = "UP"
    Next Cel
    Set Plage = Nothing

A+

Bonjour,

tu devrais déposer un fichier représentatif avec qcq données.

Déposer le fichier xls (réduit au nécessaire et anonymisé, avec les explications et éventuellement le résultat attendu) sur cjoint.com et coller ici le lien fourni.

eric