Remplacer la formule par une macro

[jerleswatt]

Bonjour, j'ai aujourd'hui un fichier qui est devenu trop lourd, donc je voudrai trouver une macro pouvant remplacer cette formule qui consiste à additionner des prix par date, en espérant que mon fichier soit plus rapide.

Existe-t-il une macro pouvant remplacer ma formule? (je joins un fichier test)

Cordialement jerleswatt.

 

[jerleswatt]

Re : Remplacer la formule par un macro

Bonsoir,
Surtout ne m' oublié pas si vous avez une solution je m'en réjouirai car j'y travail toujours.

Cordialement Jérôme.

 

[pierrejean]

Re : Remplacer la formule par un macro

Bonjour jerleswatt

Vois si cela te convient

 

[jerleswatt]

Re : Remplacer la formule par une macro

Bonjour,
Merci pour votre solution, vous me rendez un grand service.
Juste un petit détail ce macro est parfait pour l'exemple mais des tableau (feuil 1) j'en ai en réalité 205 donc est t'il possible de raccourcir encore ce petit paragraphe :

tablo1 = Sheets("Feuil1").Range("B6:F" & Sheets("Feuil1").Range("B65536").End(xlUp).Row)
tablo2 = Sheets("Feuil1").Range("H6:L" & Sheets("Feuil1").Range("H65536").End(xlUp).Row)

Cordialement Jérôme.