Optimiser une macro Résolu/Fermé

Question

Bonjour, Je souhaiterai optimiser une macro qui met un peu de temps. Aujourd'hui je n'ai que 1100 lignes mais j'en aurai plus. LgMax1 = Range("A" & Rows.Count).End(xlUp).Row For LgAna = 2 To LgMax1 For LgAnab = 2 To LgMax1 ' Un doublon est trouvé dans une ligne If wsFicAna.Range("D" & LgAna).Value = _ wsFicAna.Range("D" & LgAnab).Value And LgAnab <> LgAna _ And wsFicAna.Range("D" & LgAna).Value <> "" Then wsFicAna.Range("B" & LgAna).Value = "UP" Exit For End If Next Next Merci

eriiic · Answer

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

Gyrus · Answer

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+

WeaponEDGE · Answer

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

eriiic · Answer

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

bayedav · Answer

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

bayedav · Answer

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

bayedav · Answer

Bonjour,

Y'a-t-il quelqu'un qui pourra m'aider à optimiser cette macro?

Merci d'avance

Optimiser une macro

7 réponses

Discussions similaires