recalcul automatique Résolu/Fermé

Question

Bonjour, 

J'ai un classeur Excel avec plusieurs feuilles ,ce que je cherche à faire sans succès ,c'est de désactiver sur une seule feuille à l'aide d'un bouton  à un moment donné la fonction recalcul automatique  .
Cela est-il possible si, oui comment?
Merci pour votre aide
Cordialement 



Configuration: Windows / Firefox 61.0

ThauTheme · Answer

Bonjour JCB, bonjour le forum,

Dans l'onglet où tu veux que ça agisse, un ToggleButton (issue de la barre d'outils contrôle ActiveX). 
Dans la propriété Caption de ce bouton : Calcul Automatique
Puis dans le code ce cet onglet (clic du bouton droit sur l'onglet puis option : Visualiser le code). Colle le code ci-dessous :
Private Sub ToggleButton1_Click()
ActiveCell.Select
Select Case Me.ToggleButton1.Caption
    Case "Calcul Manuel"
        Application.Calculation = xlCalculationManual
        Me.ToggleButton1.Caption = "Calcul Automatique"
    Case "Calcul Automatique"
        Application.Calculation = xlCalculationAutomatic
        Me.ToggleButton1.Caption = "Calcul Manuel"
End Select
End Sub

Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
End Sub

Private Sub Worksheet_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub

Le bouton affiche le contraire ce l'état actuel du calcul. S'il affiche Calcul Automatique c'est que tu es en calcul manuel... Comme cette option ne s'applique pas à un onglet en particulier mais à l'application toute entière, j'ai remis, par défaut Automatique quand on sort de l'onglet et Manuel quand on y rentre...

JCB40 · Answer

Bonjour

Merci pour ta réponse
ce que je souhaite exactement c'est:
Je rentre des données dans une feuille exemple feuil1,ces données vont automatiquement dans une feuil2 pour un tri aléatoire"tirage au sort".
Quand j'ai terminé de rentrer mes données feuil1,il faut que dans  la feuil2 le calcul automatique soit définitivement 
désactivé,sans être désactivé dans les autres feuilles.
J'espère  que tu comprends  ce que je souhaite,pas évidant d'expliquer par écrit.
Cordialement

ThauTheme · Answer

Re,

Visiblement ça n'a rien à voir avec ta première requête... Bonne chance...

JCB40 · Answer

Re

Désolé de mettre mal exprimé
A+

JCB40 · Answer

Re

Dans les Options Excel >>Formules>> j'ai cocher  Manuel  et décocher :Recalculer le classeur avant de l'enregistrer.
Est-il possible de forcer par formule où code VBA  le calcul automatique dans une seul feuille plage  B4:G103.
Merci
Crdlt

JCB40 · Answer

Bonjour

Pas de solutions a ce problème?
Crdlt

ThauTheme · Answer

Re,

Si tu lisais correctement les réponses, tu n'aurais même pas posé cette question. Voilà ce que je te disais dans mon premier post :
Comme cette option ne s'applique pas à un onglet en particulier mais à l'application toute entière, j'ai remis, par défaut Automatique quand on sort de l'onglet et Manuel quand on y rentre...  

Ce que tu demandes est donc impossible car le type de calcul s'applique à Excel dans son ensemble. On ne peut pas le différencier d'un onglet à un autre sans faire une usine à gaz...

JCB40 · Answer

Malgré mes 70 ans je ne suis pas complètement débile, et j'arrive encore à très bien lire,même entre les lignes.
Comme tu le dis toi-même cela peut être possible  avec l'usine à gaz.
D’où mon insistance dans ma demande.

ThauTheme · Answer

Re,

Comme chantait Brassens, Le temps ne fait rien à l'affaire...
Si une usine à gaz il te faut, une usine à gaz nous ferons, mais prend au moins la peine de fournir un fichier de base avec des explications détaillées. L'idéal, les données avant la macro dans un onglet et le résultat final désiré dans un autre... Parce que, comme tu le dis si bien toi-même : pas évident d'expliquer par écrit.

Recalcul automatique

9 réponses