Activer une macro sur un click
sash
-
cousinhub29 Messages postés 1135 Date d'inscription Statut Membre Dernière intervention -
cousinhub29 Messages postés 1135 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Activer une macro sur un click
- Activer chromecast - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment activer notification visite profil facebook - Guide
- Activer office gratuitement - Accueil - Bureautique
- Cle pour activer windows 10 gratuitement - Guide
1 réponse
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"
Et ensuite, pour ton bouton, en cliquant dessus, on calcule uniquement la cellule C7 :
Nota, on peut forcer le calcul de toute la feuille ainsi :
Bonne journée
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
