XL 2010 Macro trop lente avec 650 000 lignes

S

soan

XLDnaute Barbatruc

Inactif

• 23 Septembre 2020

• #16

Bonjour @mapomme,

Sur mon PC, avec Windows 7, Excel 2007, RAM 8 Go, Intel Core i5-3450 à 3.10 GHz :





chapeau !!! 😀

soan

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2020

• #17

Bonjour @soan 🙂,

Sur mon PC, avec Windows 10, Excel 365, RAM 16 Go, AMD Ryzen 7 3700X à 3,6 GHz :

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Septembre 2020

• #18

eh ben, t'as un super PC, dis-donc !!! 🙂

ça vaut drôlement l'coup, un PC avec une RAM de 16 Go
et un processeur AMD Ryzen 7 3700X à 3,6 GHz !!! 😀

(comment t'as fait pour l'acheter ? t'as dévalisé une banque ? 😛)

soan

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 23 Septembre 2020

• #19

Bonsoir,
Pour test avec ce code, et cette modification combien de temps vous avez @mapomme

VB:

Sub statutEetMbis2()
Dim t1, t2, i&, deb#
   deb = Timer
   t1 = Range("af2:af" & Cells(Rows.Count, "a").End(xlUp).Row).Value
   ReDim t2(LBound(t1, 1) To UBound(t1, 1), LBound(t1, 2) To UBound(t1, 2))
   For i = LBound(t1, 1) To UBound(t1, 1)
       If t1(i, 1) = "M" Or t1(i, 1) = "E" Then t2(i, 1) = "Non" Else t2(i, 1) = "oui"
    Next i
  Cells(2, 37).Resize(UBound(t2, 1), UBound(t2, 2)) = t2
  MsgBox "remplissage colonne AK en " & Format(Timer - deb, "0.00\ sec")
End Sub

 

Dernière édition: 23 Septembre 2020

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2020

• #20

soan à dit:

(comment t'as fait pour l'acheter ? t'as dévalisé une banque ? 😛)

Cliquez pour agrandir...

Mon précédent PC datait de 2007 (entièrement monté par ma pomme). Je l'ai remplacé fin juin (acheté tout monté, OS installé - je m'embourgeoise 🙁). En 13 ans, j'ai eu le temps d'économiser (et très peu par an puisque sur 13 ans). Mon prochain nouveau PC (ou la chose qui le remplacera) devrait être en 2033. Je commence à épargner.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Septembre 2020

• #21

alors courage ! comme dit le proverbe : « tout vient à point à qui sait attendre ! » 😉

soan

 

Vote positif 0 Vote négatif