Jouer avec calcul manuel
Bonjour à toutes et à tous !!
Je reviens vers vous avec un nouveau problème.
J'ai une feuille avec de très nombreux calculs sur différents onglets. L'utilisateur à 4 boutons (listes déroulantes) à choisir et clique ensuite sur un bouton "actualiser" pour éviter le recalcul de toutes les formules à chaque clique de d’utilisateur sur un bouton, j'ai inséré en début de programme :
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
J'ai ensuite, sur mon bouton inséré des commandes telles que
Private Sub CommandButton1_Click()
Sheets("Filtre").Calculate pour rafraîchir ma feuille filtre
Sheets("Calcul").Calculate pour rafraîchir ma feuille calcul
Sheets("Calculs").Range("D6").Calculate pour rafraîchir une cellule
et Sheets("Calculs").Range("J6:L6").Calculate pour rafraîchir une ligne
Quand je lance pas à pas dans vba, aucun problème par contre quand j'utilise les boutons j'ai des erreurs
Erreur d'exécution '1004':
La méthode Calculate de la classe Range a échoué et il me surligne :
Sheets("Calculs").Range("D6").Calculate
Sheets("Calculs").Range("J6:L6").Calculate
La syntaxe est elle la bonne ??
Bonjour,
As-tu remarqué que tu nommes la feuille "Calculs" dans un cas et "Calcul" dans l'autre cas ?
A+
Ah Oui ... c'est une erreur de ma part en recopiant mes commandes ici mais dans mon outil les deux se nomment "Calculs".
A part ce que je t'ai signalé précédemment, la syntaxe est correcte.
J'ai effectué le test des 4 instructions sans renvoi d'erreur.
A+