Macro pour calcul sur commande d'un onglet

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 :)

Bonsoir,

Voici la macro qui te correspond :

Code:

---

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

Citation:

---

Envoyé par Chtik

Bonsoir,

Voici la macro qui te correspond :

Code:

---

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!

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:

---

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

---

Citation:

---

Envoyé par Nouveau2

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:

---

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 ?

Bonjour,

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

Code:

---

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

---

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.