Recalcul automatique

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

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

Re,

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

Re

Désolé de mettre mal exprimé
A+

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

Bonjour

Pas de solutions a ce problème?
Crdlt

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

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.

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.