XL 2016 VBA, macro calcul manuel

[cardi]

Bonjour,

Je souhaite créer un bouton pour activer/désactiver les calculs automatiques car j'ai un fichier assez lourd.

Je souhaite que quand je clique sur le bouton, cela active les calculs manuels et cela change le titre du bouton. Si je reclique sur ce même bouton, cela active les calculs automatiques et cela remet le titre initial du bouton.

Je joins mon 1er essai mais cela ne marche pas 🙁

Option Explicit

Sub Masque()
Dim i%

If ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.Text = "AUTO" Then

   
    Application.Calculation = xlCalculationAutomatic
   
  ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.Text = "MANUEL"
Else

  Application.Calculation = xlCalculationManual

  ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.Text = "AUTO"
End If
End Sub

Merci d'avance pour votre aide.

Cardi

 

[JM27]

Bonjour

Shapes("Bouton 1")

Option Explicit

Sub Masque()
Dim i%

If ActiveWorkbook.ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = "AUTO" Then

 
    Application.Calculation = xlCalculationAutomatic
 
  ActiveWorkbook.ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = "MANUEL"
Else

  Application.Calculation = xlCalculationManual

  ActiveWorkbook.ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = "AUTO"
End If
End Sub

 

[cardi]

Tout simplement, merci, j'étais bloqué.

 

[cardi]

Petite question, j'aimerai réactiver quoi qu'il arrive le calcul automatique lorsque l'on sauvegarde le fichier, c'est possible? Que faudrait-il ajouter à mon code?

 

[JM27]

bonjour
dans la macro événementielle

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = "MANUEL"
Application.Calculation = xlCalculationAutomatic
End Sub

attention il faut que tu sois sur la feuille qui comporte le bouton 1
sinon, il faut changer la ligne

ActiveWorkbook.ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = "MANUEL"
par

ActiveWorkbook.sheets("Nom de la feuille").Shapes("Bouton 1").TextFrame.Characters.Text = "MANUEL"

bien entendu il faut changer "Nom de la feuille"

 

[cardi]

Super, cela fonctionne parfaitement, merci beaucoup !