Changement de l'option de calcul

Fermé
F60lebaladinverni Messages postés 126 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 7 avril 2023 - 2 oct. 2018 à 10:52
F60lebaladinverni Messages postés 126 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 7 avril 2023 - 11 oct. 2018 à 08:57
Bonjour,

Je voudrais dire a Excel en VBA, d'écrire "Attention calcul MANUEL activé" ou "Attention calcul AUTOMATIQUE activé" dans une cellule quelconque au moment où je change l'option de calcul.

Comment faire ?

Merci pour votre aide

F60lebaladinverni
A voir également:

2 réponses

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
2 oct. 2018 à 14:39
bonjour, comment se fait le changement de l'option?
0
F60lebaladinverni Messages postés 126 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 7 avril 2023 2
2 oct. 2018 à 15:29
Bonjour,

Manuellement : Onglet "Formules" => Options de calcul => choix Manuel ou automatique
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > F60lebaladinverni Messages postés 126 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 7 avril 2023
2 oct. 2018 à 15:37
tu pourrais avoir du code VBA qui ferait cela en étant exécuté à une fréquence déterminée, sur base d'un timer.
0
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié le 2 oct. 2018 à 18:07
Bonjour,

Mettre l'option de calcul dans une cellule par VBA c'est facile voici par exemple le code pour l’inscrire dans la cellule A1 de la feuille 1 :

    If Application.Calculation = xlCalculationAutomatic Then
        Sheets("Feuil1").Cells(1, 1) = "Automatique"
    ElseIf Application.Calculation = xlCalculationManual Then
        Sheets("Feuil1").Cells(1, 1) = "Manuel"
    Else
        Sheets("Feuil1").Cells(1, 1) = "Semi-Automatique"
    End If


Par contre "au moment où je change l'option", ce n'est pas possible.

Le gestion événementielle dans VBA ne permet pas de déclencher sur cet événement. Ce ne peut être que sur certains événements :
Ouverture du classeur, changement de feuille, changement d'une valeur, ...

0
F60lebaladinverni Messages postés 126 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 7 avril 2023 2
11 oct. 2018 à 08:57
Bonjour,

D'accord
Merci pour ta réponse

Bonne continuation
0