Recalcul

[Oudjat]

Voila mon application que j'ai creer deviens un peu plus lourde et recalcul sans arret y a til un moyen d'alleger c'est "recalcul"

je suis preneur de toute idée car ca deviens tres lents


merci

oudjat

 

[@+Thierry]

Salut Oudjat


Je t'invite à faire un tour sur ce fil de discussion tu devrais y trouver ton bonheur...

BOn App
@+Thierry

 

[@+Thierry]

Re Oudjat

Une fois que tu auras lu ce fil donc "Macro tres tres lente (15 secondes pour faire une action sur 16*5 cellules)" finalement ma solution finale pour Cyb-cd n'a pas pu être mise sur le forum...

Donc ici la méthode :
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub
Ne pas oublier de remettre en sortant, sinon Excel reste en Mode Manuel (Menu / Outils / Option / Calculation)

Dans les modules (les macros) si on a besoin d'avoir un Calcul à un moment précis on met l'instruction :
Calculate

On peut même être très pointu sur cette instruction qui seule équivaut à dire :
Application.Calculate '(donc Excel calcule partout)
mais on peut préciser :
Worksheets("Toto").Calculate '(donc Excel calcule que sur la feuille "Toto")
et même :
Worksheets("Toto").UsedRange.Columns("A:C").Calculate '(donc Excel calcul juste là où il faut à la cellule près si il le faut!!)

Voilà avec çà ton appli devrait tourner du Tonnerre de Feu !!

Bon App
@+Thierry

 

[Oudjat]

Merci de ta reponse sa pedale de la mort

mais il calcul plus rien je doit faire F9 pour qu'il calcul

est ce normal ?


oudjat