Discussion :

[claire-abadie]

Bonjour,

Je souhaiterais mettre en place une macro qui s'applique sur un onglet d'un classeur et permet de bloquer le calcul automatique uniquement sur cet onglet et d'avoir un bouton déclenchant le calcul des formules pour l'onglet.

Comment doit-je m'y prendre ?

Merci

[Chtik]

Bonsoir,

Voici la macro qui te correspond :

Code :

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

1
2
3
4
5
6
7
8
Sub Calcul()
With Sheets("feuil1")
    ' Effectue le calcul de la feuille
    Calculate
    ' Désactive le calcul automatique de la feuille
    Application.Calculation = xlManual
End With
End Sub

Une recherche via l'éditeur de macro et tu avais le code.

Chtik

[jijie]

Bonsoir,

Voici la macro qui te correspond :

Code :

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

1
2
3
4
5
6
7
8
Sub Calcul()
With Sheets("feuil1")
    ' Effectue le calcul de la feuille
    Calculate
    ' Désactive le calcul automatique de la feuille
    Application.Calculation = xlManual
End With
End Sub

Une recherche via l'éditeur de macro et tu avais le code.

Chtik

Heu ?

Le calcul sera bloqué certes, mais sur tous les onglets donc le classeur! Je ne crois pas qu'il soit possible de le bloquer sur un seul onglet!

[Invité]

Bonsoir,

C'est juste un oublie du point au niveau du .Calculate pour le lier avec le With, c'est pour ça.
...et vu que Calculate est déclaré dans l'espace global de la bibliothèque Excel, ça ne génère pas d'erreur.

Code :

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

1
2
3
4
5
6
7
8
Sub Calcul()
    With Sheets("Feuil1")
        ' Effectue le calcul de la feuille
        .Calculate
        ' Désactive le calcul automatique de la feuille
        Application.Calculation = xlManual
    End With
End Sub

[claire-abadie]

Bonsoir,

C'est juste un oublie du point au niveau du .Calculate pour le lier avec le With, c'est pour ça.
...et vu que Calculate est déclaré dans l'espace global de la bibliothèque Excel, ça ne génère pas d'erreur.

Code :

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

1
2
3
4
5
6
7
8
Sub Calcul()
    With Sheets("Feuil1")
        ' Effectue le calcul de la feuille
        .Calculate
        ' Désactive le calcul automatique de la feuille
        Application.Calculation = xlManual
    End With
End Sub

Bonjour,
Merci pour la réponse,
Mais la macro ne fonctionne pas comme je l'espère , elle bloque le calcul pour tous les onglets, alors que je voudrais garder le calcul automatique sur tous les onglets sauf un.
C'est possible ?

[EJO64]

Bonjour,

Pourquoi ne pas simplement désactiver / activer le calcul lors de l'activation de la page du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Activate()
 
 
Application.Calculation = xlCalculationManual
 
 
End Sub
 
Private Sub Worksheet_Deactivate()
 
Application.Calculation = xlCalculationAutomatic
 
End Sub

[Invité]

Ah oui, effectivement, j'ai lu de travers.
Pour le calcul manuel et auto, c'est au niveau de l'instance d'Excel (tous les classeurs d'une instance affectés par cette option).

Pour ma part, je ne sais pas, je laisse la main aux autres.