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

Bonjour,


merci, c'est exactement ce que je cherchais, juste sans MsgBox, mais là 
je m'en sorts ;)


Cordialement,


Fernand



Le 30/01/2018 à 07:40, PREF31 Libreoffice a écrit :
> 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