Discussion :

[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.

Code :

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

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

[trihanhcie]

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

[trihanhcie]

en fait non tjs pas :s

Code :

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

Application.Calculation = xlCalculateManual

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

[choucks]

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 :

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

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

[trihanhcie]

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?

[zazaraignée]

Tu peux associer des raccourci clavier à tes macros.

[choucks]

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 :

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

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.