calcul unique pour une feuille

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #2

Re : calcul unique pour une feuille

Bonjour zumye,

sur le principe, je crois que le code

Sheets("Feuil1").Calculate

doit correspondre, mais je ne sais pas comment il réagit s'il y a des formules basées sur d'autres feuilles...

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 10 Septembre 2008

• #3

Re : calcul unique pour une feuille

bonjour tototiti
je ne devrais pas ecrire: activesheet.calculate ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #4

Re : calcul unique pour une feuille

si la feuille en question est la feuille active à ce moment, tout à fait.

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 10 Septembre 2008

• #5

Re : calcul unique pour une feuille

mais finalement tu l'ecrirai ou? "activesheet.calculate "
dans le wookbook? et comment ?
merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #6

Re : calcul unique pour une feuille

je ne sais pas, je me suis contenté de répondre à la question :

existe t il un moyen d'inserer une ligne vba qui ferait uniquement les calculs sur la feuille active

Cliquez pour agrandir...

tu veux désactiver le calcul sur toutes les feuilles sauf une ?
tu veux ne faire le calcul de chaque feuille que quand on l'affiche ?
je ne sais pas...

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 10 Septembre 2008

• #7

Re : calcul unique pour une feuille

oui seulement celle qui est affichee, les autres serait desactivées
merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #8

Re : calcul unique pour une feuille

alors, une idée (tu me diras si ça prend vraiment moins de temps de recalcul)

tu vas dans les propriétés de chaque feuille et à la propriété EnableCalculation, tu mets false.
puis dans ThisWorkbook, tu mets le code :

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.EnableCalculation = False
End Sub

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 10 Septembre 2008

• #9

Re : calcul unique pour une feuille

il y a du mieux mais ca rame encore un peu
merci bien

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #10

Re : calcul unique pour une feuille

Oui mais fait attention si tu as des formules d'une feuille à une autre. j'ignore dans quelle mesure il répercute les calculs...

 

Vote positif 0 Vote négatif