Bonjour le forum,
Je suis en train de finaliser un fichier et je cherche à optimiser le temps de traitement.
Le code ci-dessous fonctionne parfaitement mais est assez long à traiter (6-7 secondes).
Voyez-vous une autre formulation pour simplifier l'ensemble ?
Par avance merci,
I.
Je suis en train de finaliser un fichier et je cherche à optimiser le temps de traitement.
Le code ci-dessous fonctionne parfaitement mais est assez long à traiter (6-7 secondes).
Voyez-vous une autre formulation pour simplifier l'ensemble ?
Par avance merci,
I.
If Sheets("01").Range("A2").Value <> "" Then Range("C2:C" & Range("A65000").End(xlUp).Row).FormulaR1C1 = "=+SUMPRODUCT(('01'!R2C3:R65000C3=""I""&Fiche!R2C3)*('01'!R2C1:R65000C1=RC[-2])*('01'!R2C4:R65000C4))"
Label3.Width = 1 / 12 * 222
DoEvents
If Sheets("02").Range("A2").Value <> "" Then Range("D2" & Range("A65000").End(xlUp).Row).FormulaR1C1 = "=+SUMPRODUCT(('02'!R2C3:R65000C3=""I""&Fiche!R2C3)*('02'!R2C1:R65000C1=RC[-3])*('02'!R2C4:R65000C4))"
Label3.Width = 2 / 12 * 222
DoEvents
If Sheets("03").Range("A2").Value <> "" Then Range("E2:E" & Range("A65000").End(xlUp).Row).FormulaR1C1 = "=+SUMPRODUCT(('03'!R2C3:R65000C3=""I""&Fiche!R2C3)*('03'!R2C1:R65000C1=RC[-4])*('03'!R2C4:R65000C4))"
Label3.Width = 3 / 12 * 222
DoEvents
etc...jusqu'à l'onglet 12