Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ne pas faire les recalculs d'une page précise

  • Initiateur de la discussion Initiateur de la discussion $p00ky
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

$

$p00ky

Guest
Bonjour à toutes et à tous,

J'ai une feuille dans laquelle je fais des statistiques sur une autre feuille.
Cependant, depuis que j'ai cette nouvelle feuille, le recalcul lorsque je modifie des données de la première feuille, est lent.

Est-il possible de ne faire les recalculs de la nouvelle feuille uniquement si je le souhaite (par appuit sur un bouton, ou sélection de cette feuille, n'importe) ?

Merci d'avance !
 
Hug $pooky,

oui-oui, c'est possoible: il existe la propriété EnableCalculation qui a la valeur True si Excel doit recalculé automatiquement la feuille et a la valeur False dans le cas contraire.
Ex:
Dans le VBE, sur ta feuille de Stats, tu peux mettre

Private Sub Worksheet_Activate()
Feuil1.EnableCalculation = True
End Sub

Private Sub Worksheet_Deactivate()
Feuil1.EnableCalculation = False
End Sub

Bonne prog
A+

Message édité par: shining hawk, à: 23/08/2005 16:17
 
Bonjour,

moué... t'es en service minimum - vacances ?.... ta touche F1 ne marche plus ?... bon ben copie de l'aide alors... 🙂 🙂


Pense à regarder l'aide de temps en temps, elle n'est pas si mal faite 😛 😉

A+
 
Merci beaucoup Shining Hawk c'est exactement ce que je voulais !

2passage, j'suis juste intérimaire l'été, et en prépa l'année scolaire.
T'inquiètes, la touche F1 marche encore, mais ce que je cherchais, c'était le contraire : bloquer le calcul d'une feuille et non pas le lancer.
Merci quand même

@+
 
Bonjour

Une autre possibilité

Code:
Public Sub OuiNon()
If Sheets('Feuil1').EnableCalculation Then
   Sheets('Feuil1').EnableCalculation = False
Else
   Sheets('Feuil1').EnableCalculation = True
   Sheets('Feuil1').Calculate
End If
End Sub

@+Jean-Marie
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…