Je cherche quelque chose qui me permettrait =E0 l'ouverture d'un fichier
de mettre l'option (dans le menu - outil - option - calcul) de calcul
sur ordre au lieu de d'automatique comme =E7a l'est par d=E9faut, et au
moment de la fermeture de remettre l'option sur automatique.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JP25
Bonjour, Entre Calculate dans une sub 'pouyr calcul (F9)
Met ce code dans sub auto_open pour désactiver le calcul auto With Application .MaxChange = 0.001 .CalculateBeforeSave = False End With ActiveWorkbook.PrecisionAsDisplayed = False
Celu-ci avant de quitter With Application .Calculation = xlAutomatic .MaxChange = 0.001 .CalculateBeforeSave = True End With ActiveWorkbook.PrecisionAsDisplayed = False
JP25
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche quelque chose qui me permettrait à l'ouverture d'un fichier de mettre l'option (dans le menu - outil - option - calcul) de calcul sur ordre au lieu de d'automatique comme ça l'est par défaut, et au moment de la fermeture de remettre l'option sur automatique.
Est-ce possible et si oui comment ?
Merci.
Bonjour,
Entre Calculate dans une sub 'pouyr calcul (F9)
Met ce code dans sub auto_open pour désactiver le calcul auto
With Application
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Celu-ci avant de quitter
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
.CalculateBeforeSave = True
End With
ActiveWorkbook.PrecisionAsDisplayed = False
JP25
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
1180597452.213512.85280@g4g2000hsf.googlegroups.com...
Bonjour à tous,
Je cherche quelque chose qui me permettrait à l'ouverture d'un fichier
de mettre l'option (dans le menu - outil - option - calcul) de calcul
sur ordre au lieu de d'automatique comme ça l'est par défaut, et au
moment de la fermeture de remettre l'option sur automatique.
Bonjour, Entre Calculate dans une sub 'pouyr calcul (F9)
Met ce code dans sub auto_open pour désactiver le calcul auto With Application .MaxChange = 0.001 .CalculateBeforeSave = False End With ActiveWorkbook.PrecisionAsDisplayed = False
Celu-ci avant de quitter With Application .Calculation = xlAutomatic .MaxChange = 0.001 .CalculateBeforeSave = True End With ActiveWorkbook.PrecisionAsDisplayed = False
JP25
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche quelque chose qui me permettrait à l'ouverture d'un fichier de mettre l'option (dans le menu - outil - option - calcul) de calcul sur ordre au lieu de d'automatique comme ça l'est par défaut, et au moment de la fermeture de remettre l'option sur automatique.
Est-ce possible et si oui comment ?
Merci.
AV
Dans le module de ThisWorkbook :
Private Sub Workbook_Open() Application.Calculation = xlManual End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Calculation = xlAutomatic End Sub
Ceci dit, c'est à manier avec des pincettes...
AV
Dans le module de ThisWorkbook :
Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlAutomatic
End Sub
Private Sub Workbook_Open() Application.Calculation = xlManual End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Calculation = xlAutomatic End Sub
Ceci dit, c'est à manier avec des pincettes...
AV
MichDenis
Si tu veux que seul un classeur reçoive cette attention, j'utiliserais ces 2 événements du Thisworkbook, ce qui permettrait aux autres classeurs que tu ouvres, pendant que ce dernier est ouvert d'avoir l'option Calcul sur automatique.
Private Sub Workbook_Activate() Application.Calculation = xlManual End Sub
Private Sub Workbook_Deactivate() Application.Calculation = xlAutomatic End Sub
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche quelque chose qui me permettrait à l'ouverture d'un fichier de mettre l'option (dans le menu - outil - option - calcul) de calcul sur ordre au lieu de d'automatique comme ça l'est par défaut, et au moment de la fermeture de remettre l'option sur automatique.
Est-ce possible et si oui comment ?
Merci.
Si tu veux que seul un classeur reçoive cette attention,
j'utiliserais ces 2 événements du Thisworkbook, ce
qui permettrait aux autres classeurs que tu ouvres,
pendant que ce dernier est ouvert d'avoir l'option
Calcul sur automatique.
Private Sub Workbook_Activate()
Application.Calculation = xlManual
End Sub
Private Sub Workbook_Deactivate()
Application.Calculation = xlAutomatic
End Sub
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
1180597452.213512.85280@g4g2000hsf.googlegroups.com...
Bonjour à tous,
Je cherche quelque chose qui me permettrait à l'ouverture d'un fichier
de mettre l'option (dans le menu - outil - option - calcul) de calcul
sur ordre au lieu de d'automatique comme ça l'est par défaut, et au
moment de la fermeture de remettre l'option sur automatique.
Si tu veux que seul un classeur reçoive cette attention, j'utiliserais ces 2 événements du Thisworkbook, ce qui permettrait aux autres classeurs que tu ouvres, pendant que ce dernier est ouvert d'avoir l'option Calcul sur automatique.
Private Sub Workbook_Activate() Application.Calculation = xlManual End Sub
Private Sub Workbook_Deactivate() Application.Calculation = xlAutomatic End Sub
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche quelque chose qui me permettrait à l'ouverture d'un fichier de mettre l'option (dans le menu - outil - option - calcul) de calcul sur ordre au lieu de d'automatique comme ça l'est par défaut, et au moment de la fermeture de remettre l'option sur automatique.
