Bouton pour calculer une table de données [Résolu/Fermé]

Signaler
Messages postés
7
Date d'inscription
lundi 29 avril 2019
Statut
Membre
Dernière intervention
8 mai 2019
-
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
-
Bonjour,

J'ai une table de données qui est longue à calculer. J'ai donc exclu le calcul automatique des tables de données dans les options.
J'aimerais à présent créer un bouton me permettant de lancer le calcul de la table de données manuellement.
J'ai essayé ceci sans succès :

Private Sub CommandButton1_Click()
ActiveSheet.Range("Y8:AN18").Select
Selection.Calculate
End Sub


Un code permettant le calcul de la feuille entière ne fonctionne pas car le calcul automatique des tables de données est désactivé.

Peut-être que celui ci-dessus ne fonctionne pas pour la même raison ? Dans ce cas là, que pourrais-je utiliser à la place de Calculate ?
Ou y'a a-t-il une solution plus maligne ?

Merci d'avance !

1 réponse

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
149
Bonjour NBaduel, bonjour le forum

Ne connaissant pas la manière utilisée pour empêcher le calcul, essaie ça :
Application.Calculation = xlCalculationManual


ou ça :
Activesheet.Calculate


Voire les deux...
Messages postés
7
Date d'inscription
lundi 29 avril 2019
Statut
Membre
Dernière intervention
8 mai 2019

Bonjour et merci pour la réponse.

La première proposition a fait passé la méthode de calcul en manuel alors que je la voulais en "Automatique sans les tables de données".

La deuxième proposition a quant à elle résolu mon problème. Merci !
Étrange cependant que Selection.Calculate n'ait pas marché alors que Activesheet.Calculate fonctionne..
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
149
Parce le calcul s'applique à un onglet et pas à une plage...