[VBA Excel] Calcul automatique

Bonjour,

J'ai une application Excel et je voudrais que pour cette application spécifique, les calculs ne se fassent pas automatiquement mais sur ordre.

Code:

---

1 2 3 4 5 6 7 8 9

Sub Manuel() With Application .Calculation = xlManual .MaxChange = 0.001 .CalculateBeforeSave = False End With ActiveWorkbook.PrecisionAsDisplayed = False End Sub

---

J'ai utilisé le générateur de code en enregistrant la macro mais ca fonctionne pas... a chaque fois que je fais un changement dans l'appli, j'ai malgré tout un recalcul. Il faudrait de la macro s'effectue au démarrage pour cette appli uniquement. Ca doit etre assez facile à faire mais j'ai pas encore trouvé la manière de le faire...

Si qq peut me donner une indication :)

Merci

oups question idiote a priori :D j'avais la réponse juste avt :) Merci

en fait non tjs pas :s

Code:

---

Application.Calculation = xlCalculateManual

---

J'ai essayé de mettre cette ligne au niveau du workbook sans succes :s

Citation:

---

Envoyé par trihanhcie

Bonjour,
J'ai une application Excel et je voudrais que pour cette application spécifique, les calculs ne se fassent pas automatiquement mais sur ordre.

---

Quand tu dis pour cette application spécifique, tu parles du classeur. Moi je le comprends comme ça.
Donc voivi quelques lignes, elle empêchent le recalcul dans toutes le feuilles du classeur (sub Manuel) et réactivent le calcul auto (sub CalculAuto).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Manuel() Dim w As Worksheet   For Each w In ThisWorkbook.Worksheets w.EnableCalculation = False Next   End Sub   Sub CalculAuto()   Dim w As Worksheet   For Each w In ThisWorkbook.Worksheets w.EnableCalculation = True Next   End Sub

---

oui désolé en effet, application spécifique je voulais dire classeur.

Ca ne fait pas tout à fait ce que je voudrais pour la fonction.

En fait, j'aurai voulu une exécution sur ordre plutôt au niveau du classeur et sans rajout d'un bouton quelconque.

Je m'explique :
Dans les options d'Excel, on peut choisir de faire les calculs sur ordre ou automatique. L'inconvénient est qu'il est valable pour toutes les applications Excel.

La fonction que tu as donné fonctionne mais elle m'empêche de faire un calcul sur ordre. Est il possible de le faire sans rajouter un bouton pour permettre le calcul?

Tu peux associer des raccourci clavier à tes macros.

Salut,

Pour désactiver le calcul automatique dès l'ouverture de ton classeur, appelles la procédure Manuel dans la procédure workbook_open()

C'est dans le module de l'objet Workbook.

Code:

---

1 2 3 4

Private Sub Workbook_Open() Manuel End Sub

---

Puis tu associes un raccourci clavier pour activer ou désactiver le calcul automatique. Dans le fenêtre des Macros (Alt+F8) du classeur, sélectionnes une procédure (exemple Manuel()) et cliques sur options puis choisis un raccourci clavier (Crtl+qqch).
Même chose pour la procédure CalculAuto() tu lui associes un raccourci

Voilà a l'ouverture ton classeur sera en manuel et tu auras deux raccourcis clavier pour réactiver ou désactiver le calcul auto de CE CLASSEUR.