Re: [fr-users] Controle du recalcul par macro

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.costa@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+unsubscribe@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