XL 2021 [RESOLU] Remplacer des formules pour du VBA

[Bloody_Toad]

Bonjour

Voilà mon fichier qui fonctionne pas mal, mais qui au fil de l'année s'alourdit et devient vraiment très lent. Je pense que la cause sont les formules de recherche en colonne G et J.

Je voudrais "si possible" faire une macro qui remplace ces formules.

Je joins mon fichier, il n’y a pas mal de formules et macro glanée par-ci par-là et modifiée à ma sauce "soyer indulgent". Je ne suis réellement pas très doué pour le VBA.

Merci

 

[sylvanu]

Si, en complexifiant les formules avec :

Dernière ligne :
DL = Sheets("N° d'affaires").Cells(Cells.Rows.Count, "B").End(xlUp).Row
Formules :
Formule = "=SI(H" & L & "="""";"""";INDEX('N° d''affaires'!$B$2:$B$" & DL & ";EQUIV(H" & L & ";'N° d''affaires'!$C$2:$C$" & DL & ";0);1))"
Formule = "=SI(H" & L & "="""";"""";INDEX('N° d''affaires'!$F$2:$F$" & DL & ";EQUIV(H" & L & ";'N° d''affaires'!$C$2:$C$" & DL & ";0);1))"

 

[Bloody_Toad]

Bonjour Sylvanu
Juste pour vous tenir au courant. Non, il n'y a pas d'amélioration de vitesse d'ouverture du fichier, 6 secondes en gros. :-(

Merci pour ton aide.