Discussion :

[atk_49]

Bonjour à tous,

Dans un soucis d'économie de temps de calcul, je souhaiterais savoir comment bloquer le calcul automatique de la feuille "Feuil2" et de programmer un recalcul de cette dernière à l'ouverture du classeur.

J'ai essayer de bricoler dans le projet VBA ThisWorkbook mais sans succès...

Merci d'avance et bon après midi.

[Marc-L]

Bonjour,

consulter l'aide VBA de la propriété EnableCalculation …

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[atk_49]

Merci Marc L, je me penche sur cette fonction.

Voici le code que j'utilise, à placer dans le VBA des feuilles ou le recalcul doit être bloqué.

Code :

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

1
2
3
4
5
Private Sub Worksheet_Activate()
ActiveSheet.EnableCalculation = True
ActiveSheet.Calculate
ActiveSheet.EnableCalculation = False
End Sub

Le recalcul est bloqué systématiquement, sauf lorsque la feuille est sélectionnée, j'ai également programmé un recalcul du classeur entier à chaque sauvegarde.

Code :

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

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Calculate
End Sub

Merci Marc-L, si vous avez des remarques sur ce résultat, n'hésitez pas !

Bonne journée

[joe.levrai]

Bonjour,

une autre approche consiste à utiliser l'évènement Workbook_SheetActivate du module Thisworkbook

tu construis un tableau contenant la liste des feuilles voulues

et tu testes si la feuille activée fait partie de ta liste
si c'est le cas : tu bloques ton recalcul

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim TabSh()
 
TabSh = Array("Feuil1", "Feuil3")
 
If Not IsError(Application.Match(Sh.Name, TabSh, 0)) Then
    ' ton code de neutralisation
End If
 
End Sub

Cela dis ... si tu souhaites que le recalcul ne soit fait qu'à la fermeture du classeur, il est préférable de bloquer le recalcul automatique de ces feuilles une bonne fois pour toute ?
Et ce sera uniquement l'évènement before_save qui mettra à jour ces feuilles

[atk_49]

Cela dis ... si tu souhaites que le recalcul ne soit fait qu'à la fermeture du classeur, il est préférable de bloquer le recalcul automatique de ces feuilles une bonne fois pour toute ?
Et ce sera uniquement l'évènement before_save qui mettra à jour ces feuilles

Bonjour joe.levrai,

Tu as complètement raison, voici mon code :

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil2").EnableCalculation = True
Sheets("Feuil2").Calculate
Sheets("Feuil2").EnableCalculation = False
End Sub

Je cherche aussi à bloquer le recalcule de certaine feuille en fonction de la valeur d'une autre cellule, je creuse !

Merci en tout cas !

[joe.levrai]

C'est toujours la même cellule qui va piloter l'autorisation de recalcul ?
C'est une cellule "de pilotage" propre à chaque feuille ?
Cette/ces cellule(s) sont située au sein de la feuille qu'ils doivent piloter où ils sont ailleurs ?
Quelle est la valeur qui Autorise (ou interdit) le recalcul ?
Comment cette/ces cellule(s) sont censés être modifiées (par un utilisateur ou par une macro) ?

des question qui paraissent nombreuses ... mais qui permettent d'avoir une solution optimale