Activer une macro sur un click
Fermé
sash
-
23 sept. 2010 à 13:55
cousinhub29 Messages postés 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 - 23 sept. 2010 à 14:42
cousinhub29 Messages postés 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 - 23 sept. 2010 à 14:42
A voir également:
- Activer une macro sur un click
- Comment activer chromecast sur tv - Guide
- Comment activer windows 10 - Guide
- Macro word - Guide
- Activer le pavé tactile - Guide
- Macro logiciel - Télécharger - Organisation
1 réponse
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
23 sept. 2010 à 14:42
23 sept. 2010 à 14:42
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