SOUCIS avec le calcul sur ordre

[caline]

bonsoir à tous

dans mon fichier, je coche option calcul sur ordre cela fonctionne très bien j'ai même fait un bouton pour le calcul sur ordre pour le document SOIT( Maj F9 ) SOIT via la macro
Sub CALCUL()
'CALCUL Macro
Range("H3").Select
ActiveSheet.Calculate
End Sub
ce qui se passe c'est quand je ferme le fichier et que je ferme excell et ensuite que je réouvre le fichier, il n'a pas gardé l'option de départ c'est à dire le calcul sur ordre
vu que ce fichier va être sur le réseau et accessible par lecture seule , ce recalcul est très gênant et prend pas mal de temps, et je ne peux demander aux utilisateurs de connaître cette option

malgré une recherche sur le forum, je m'adresse à vous car je n'ai rien trouvé pour ce prob

merci à vous tous

 

[ziopizza]

Re : SOUCIS avec le calcul sur ordre

Bonsoir Caline
A la fermeture de ton classeur place ce code cela devrait marcher

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlManual
End Sub

Bonne nuit Yves

 

[caline]

Re : SOUCIS avec le calcul sur ordre

Merci Yves

j'ai placé la macro dans le thisbook je suppose

mais lorsque j'enregistre le fichier et le réouvre , rebelotte il recalcule ,
dois-je faire autre chose?

merci et bonne nuit aussi

 

[Pierrot93]

Re : SOUCIS avec le calcul sur ordre

Bonjour Caline, Yves, le forum

A mon avis cette instruction devrait plutôt être placée dans l'evenement open de thisworbook

Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub

Bonne journée
@+

 

[ziopizza]

Re : SOUCIS avec le calcul sur ordre

Bonjour Caline,Pierrot93

En ajoutant, Application.CalculateBeforeSave = False
cela fonctionne chez moi.
Si ça ne marche pas ,comme le dit Pierrot93 essaye aussi dans le Workbook_Open() .

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlManual
Application.CalculateBeforeSave = False
End Sub
Je joins un petit exemple
@+ Yves

 

[chris]

Re : SOUCIS avec le calcul sur ordre

Bonjour
Si on le met dans le before close sans qu'il y ait d'enregistrement du classeur à la fermeture, cela ne sert à rien.
Donc si le classeur n'est pas modifié par les utilisateurs (lecture seule), le plus simple est dans Wortkbook_open comme proposé par Pierrot93.

 

[caline]

Re : SOUCIS avec le calcul sur ordre

MERCI A TOUS de votre aide

j'ai essayé les différentes macro et celle de ziopizza marche très bien, je conserve les autres mais celle de Pierrot m'indique nom ambigu dans le Workbook_Open() , j' ai d'autre macro dans le workbook est-ce cela ?
je débute en VBA vous vous en doutez .

A la prochaine
Caline

 

[ziopizza]

Re : SOUCIS avec le calcul sur ordre

Bonsoir Caline,le fil
Tu as surement déja un Workbook_Open() ,donc il te faut rajouter que les lignes à l'intérieur.

Application.Calculation = xlManual
Application.CalculateBeforeSave = False

@+Yves
On ne peu pas appeler 2 macros du même nom,donc l'Erreur nom ambigu

 

[caline]

Re : SOUCIS avec le calcul sur ordre

remerci

c'était cela je commencais à m'en douter,
j'ai rectifié et cela fonctionne
un plaisir de travailler maintenant sur le fichier sans le recalcul auto
merci à tous
Caline
A plus car j'aurai encore besoin de vous pour appliquer certaines formules ou Macro mais je pars au resto avec les copines

 

[caline]

Re : SOUCIS avec le calcul sur ordre

BONSOIR a vous tous

Il y a de quoi s'arrager les cheveux

voulant voir si tout fonctionne je reouvre mon ordi et mon fichier et rebelottr le recalcul se refait automatiquement alors qu'il y a 5heures c'était ok

voilà les # macros qu'il y a dans mon thiswoorbook

premièr essai


Option Explicit
Private Sub Workbook_Open()
Application.Calculation = xlManual
Application.CalculateBeforeSave = False
Sheets("accueil").Select
End Sub

Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 18/09/2005
' Sujet : MFC multiples
'---------------------------------------------------------------------------------------


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim TabTemp As Variant
Dim L As Long
Dim V As Variant
'Ne gère pas les sélections de plages
If Target.Cells.Count > 1 Then Exit Sub

et reste ( macro puissée sur le forum et excellente par Didier)

2 ième essai
Option Explicit
Private Sub Workbook_Open()
Sheets("accueil").Select
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlManual
Application.CalculateBeforeSave = False
End Sub
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 18/09/2005
' Sujet : MFC multiples
'---------------------------------------------------------------------------------------


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim TabTemp As Variant
Dim L As Long
Dim V As Variant

et la suite de la macro

3 ième essai

Option Explicit
Private Sub Workbook_Open()
Application.Calculation = xlManual
Sheets("accueil").Select
End Sub

Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 18/09/2005
' Sujet : MFC multiples
'---------------------------------------------------------------------------------------


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim TabTemp As Variant
Dim L As Long
Dim V As Variantet

voilà cela fct un moment mais à la fermeture de excell le recalcule auto se refait

quelqu'un a t-il une idée

Caline

 

[ziopizza]

Re : SOUCIS avec le calcul sur ordre

Bonjour Caline,le fil
Houla tu sort du resto et le programme te contrarie pas clair tous ça,
un peu plus d'explications.

'Option1: Met le calcul en manuel à l'enregistrement du fichier et ne calcule pas en quittant ,à la réouverture le calcul sera en manuel


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Calculation = xlManual
Application.CalculateBeforeSave = False 'Empéche le calcul à l'enregistrement
End Sub

'Option2: Met le calcul en manuel à l'ouverture du fichier qu'elle que sois les
'options choisis à la dernière fermeture du fichier.

Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub
Il est possible aussi,de mettre les 2 options, si utilité.


Salut Yves

 

[caline]

Re : SOUCIS avec le calcul sur ordre

a ne rien comprendre ou du moins pour moi

bonsoir à tous

a mon boulot le fichier fonctionne impeccablement et à l'ouverture d'excell le recalcul ne se fait pas comme je le voulais grâce à vos macros , je pense que mon ordi et la version d'excell y sont pour quelque chose (excell 2003)
mais ?

Merci
Caline