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
VB:
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
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
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?
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"