Activer une macro sur un click Fermé

Question

Bonjour, 

Je souhaiterai activer le calcul d'une formule dans excel en cliquant sur un bouton et seulement quand on clique. Ma macro s'excute automatiquement même sans cliquer.
Help !
Merci

Configuration: Windows XP / Internet Explorer 6.0

cousinhub29 · Answer

Bonjour,

A l'ouverture de ton fichier, on passe le mode de calcul "Sur Ordre".
Si on le désactive, ou qu'on le ferme, on passe en "Automatique"
Si on le réactive, on repasse en "Sur Ordre"

Private Sub Workbook_Activate()
Application.Calculation = xlManual
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub

Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub


Et ensuite, pour ton bouton, en cliquant dessus, on calcule uniquement la cellule C7 :

Private Sub CommandButton1_Click()
Range("C7").Calculate
End Sub


Nota, on peut forcer le calcul de toute la feuille ainsi :

Private Sub CommandButton1_Click()
ActiveSheet.Calculate
End Sub


Bonne journée

Activer une macro sur un click

1 réponse

Discussions similaires