Activer une macro sur un click
Fermé
sash
-
23 sept. 2010 à 13:55
cousinhub29 Messages postés 977 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 21 décembre 2024 - 23 sept. 2010 à 14:42
cousinhub29 Messages postés 977 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 21 décembre 2024 - 23 sept. 2010 à 14:42
A voir également:
- Activer une macro sur un click
- Comment activer windows 10 - Guide
- Comment activer chromecast sur tv - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Activer pavé tactile windows 10 - Guide
1 réponse
cousinhub29
Messages postés
977
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
21 décembre 2024
348
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