Calculation = xlCalculationAutomatic

[jhofman]

bonjour
j'ai le code suivant après un grand nombre de traitement

With Application
        .AlertBeforeOverwriting = True
        .AskToUpdateLinks = True
        .ScreenUpdating = True
        .DisplayAlerts = True
        .Calculation = xlCalculationAutomatic
        End With
        Calculate

et cependant les formules de calcul sur les pages ne sont pas actualisées !!!!
exempel si en A1 j'ai B1+C1, A1 est vide si je saisi en B1 un chiffre alors A1 est valorisé mais pas les auters formules !!
help !!

 

[criscris11]

Re : Calculation = xlCalculationAutomatic

Bonsoir jhofman, le forum,
Je ne sais pas si cela résoudra ton problème mais essaies ceci :

With Application
        .AlertBeforeOverwriting = True
        .AskToUpdateLinks = True
        .ScreenUpdating = True
        .DisplayAlerts = True
        .Calculation = xlCalculationAutomatic
        Calculate
        End With

Testes et dis-nous.
Bonne soirée.

 

[jhofman]

Re : Calculation = xlCalculationAutomatic

bonjour criscris11, le forum


criscris11, j'attendais de tester pour te répondre... et ca fonctionne !!!
Merci beaucoup.
José🙂