Bonjour à tous,
Je vous sollicite car je dois faire tourner cette macro sur un fichier de 380 000 lignes et cela prend un temps interminable..
Je suis obligé de modifier les bornes de la boucle For manuellement pour aller de 2000 en 2000...
J'ai essayé une formule classique somme.si.ens sur un autre ordinateur, elle tourne depuis 1h et j'en suis à peine à 15%.
Sachant que j'en ai trois autres à faire en suivant.
Auriez-vous une solution pour accélérer la chose svp ?
Merci d'avance !
Sub Silence1()
Dim derLigne As Long, i As Long
derLigne = Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Feuil2")
For i = 4000 To 10000
Sheets("Feuil2").Cells(i, 10).Value = WorksheetFunction.SumIfs(.Range("H" & i & ":H" & derLigne), .Range("B" & i & ":B" & derLigne), Sheets("Feuil2").Range("B" & i))
Next i
End With
End Sub