Discussion :

[Cam78]

Bonjour, je souhaiterais savoir si il était possible de désactiver le calcul automatique mais d'une feuille uniquement.

En effet, j'ai un fichier avec plein de feuilles que les salariés d'une entreprise utilisent tous les jours pour mouvementer les stocks. Sur ce fichier j'ai créé une feuille avec plein de formules qui vont chercher des infos dans toutes les feuilles afin de connaître la valeur de nos stocks.
Le problème c'est que ça ralenti leur travail a la moindre donnée qu'ils rentrent dans les autres feuille alors que j'ai besoin d'actualiser la feuille bilan seulement mensuellement.
Mais il faudrait que le calcul reste automatique sur les autres feuilles.

Sinon, je me disait que je pourrais supprimer la feuille et créer une macro qui réécrit toutes les formules de la feuille bilan qu'on activerais tous les mois, mais bon ça va me prendre trois plombes.
Ou alors faut que je vois si c'est possible de mettre ça sur une feuille à part...

Des idées ?

merci déjà de m'avoir lu

[Fvandermeulen]

Salut,

Malheureusement, l'activation des calculs se fait sur l'application, donc pas possible de mettre une seule feuille en calcul manuel.

Par contre tu lances toi même une piste, tu peux facilement déplacer la feuille incriminée dans un nouveau classeur (click droit sur l'onglet\Déplacer ou copier)

A+

[David2304]

Bonjour,

Tu peux aussi désactiver les calculs auto et demander un calcul sélectif par macro

Ex: Recalculer la feuille en-cours après chaques modifications

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

[Fvandermeulen]

Mais c'est bien sûr, on voit que c'est vendredi j'ai vraiment besoin d'un week-end reposant !
Bon ben là dessus, je vais me cacher...

[Cam78]

super !! merci beaucoup pour les réponses

je pense que ça devrait résoudre mon prob, je met ça en place dès lundi et jvous tiens au courant

Bon week end

[rtg57]

Bonjour,

j'ai de gros classeurs aussi, et je désactive systématiquement le calcul automatique par programmation, afin d'avoir une vitesse d'exécution toujours au mieux:

Dans le module ThisWorkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Activate()
/.../  
  Application.Calculation = xlCalculationManual
/.../
End Sub

et bien sûr:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Workbook_Deactivate()
/.../  
  Application.Calculation = xlCalculationAutomatic
/.../
End Sub

[/CODE]

Ainsi, a chaque fois que j'utilise ce classeur (il s'active donc), le mode de calcul passe en manuel, je force les calculs de cellules quand je veux par programmation, et lorsque je passe éventuellement à un autre classeur ouvert (le classeur se désactive), le mode de calcul est à nouveau en automatique.
Evidemment, s'il faut absolument ne gérer que le calcul d'une feuille parmi d'autre, il faut user du même mécanisme à l'activation et désactivation de cette feuille.

En espérant que cela réponde à votre question...

[Cam78]

Mais c'est génial ça !! ça va me permettre d'accélerer bien d'autres classeurs

Merci beaucoup à tous pour les réponses ça marche nikel

Résolu

[rtg57]

Bonjour,

puisqu'on en est dans les systèmes d'accélération, n'oubliez pas le fameux Application.ScreenUpdating = False avant de remplir des cellules avec des valeurs, suivi de Application.ScreenUpdating = True, lorsque toutes les manipulations sont terminées, et que l'on veut afficher le rendu.

Mais peut être connaissez-vous déjà cette astuce...

A bientôt

[Denis_67]

Il peut être intéressant de ne bloquer que la feuille de saisie.
en sortant de la saisie pour aller voir le résultat, il est intéressant que le calcul soit réactivé.
J'ai réalisé cela en ajoutant ces deux sub.
En ajoutant des IF, on doit pouvoir agir sur plusieurs feuilles.
Avantage, cela recalcule quant on change de feuille et quand on change de classeur.
Il faut bien combiner le worbook activate/deactivate et le worksheet activate/deactivate pour avoir l'effet désiré.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim mafeuille As String
mafeuille = ActiveSheet.Name
If mafeuille = "mafeuille de saisie" Then
Application.Calculation = xlCalculationManual
End If
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  Application.Calculation = xlCalculationAutomatic
End Sub