Bonjour,
Voici comment je procède. par défaut le recalcul est inactif dans mon
classeur.
La macro ci-dessous est affecté à l'ouverture et aussi à un menu pour
lancer le recalcul sans avoir à fermer et ouvrir.
Sub recalcul
Dim calcul as boolean
Dim debut as variant
if not thisComponent.isAutomaticCalculationEnabled() then
If MsgBox ("Attention calcul automatique désactivé !" _
&chr(13) &" Voulez-vous recalculer maintenant",292, now()) = 6 Then
debut=now()
thisComponent.enableAutomaticCalculation(true)
thisComponent.calculate 'mise à jour des formules
modifiées
thisComponent.calculateAll
thisComponent.enableAutomaticCalculation(false)
msgbox ("Recalcul terminé," & chr(10) & "debut : " & debut _
& " fin : " & now() & chr(10) & "le recalcul automatique a été désactivé
",16,now())
End IF
endif
end sub
Claude
Le ministère de l'Intérieur agit pour un développement durable.
Préservons l'environnement : n'imprimons que si nécessaire !
-------- Message original --------
*Sujet: *[INTERNET] [fr-users] Controle du recalcul par macro
*De : *wanadoo <fernand.co...@wanadoo.fr>
*Pour : *users@fr.libreoffice.org
*Date : *30/01/2018 01:36
Bonsoir la Liste,
après quelques recherches infructueuses, je me tourne vers cette liste.
Travaillant actuellement sur de gros (très) tableaux, je souhaite
pouvoir suspendre le calcul automatique sous Calc, et le lancer au
besoin, cela par macro.
Une piste ?
D'avance merci,
Fernand
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés