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
Merci d'avance pour votre aide.
Cardi
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
Merci d'avance pour votre aide.
Cardi