XL 2021 [RESOLU] Remplacer des formules pour du VBA

Bloody_Toad · 24 Octobre 2023

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 · 24 Octobre 2023

Si, en complexifiant les formules avec :

VB:

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 · 25 Octobre 2023

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.

XL 2021 [RESOLU] Remplacer des formules pour du VBA

Bloody_Toad

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Bloody_Toad

XLDnaute Nouveau

Discussions similaires