Modifier application.calculation dans une fonction ?

Bonjour tout le monde,
Après avoir cherché partout, je viens chercher du secours parce que là ça m'énerve !
Impossible pour moi d'effectuer la chose (simple) suivante :

Code:

---

1 2 3 4 5 6

Function POINTS(clé_concours, classt, CATEGORIE) Dim u, t As Variant, calcul calcul = Application.Calculation MsgBox calcul ' IL VAUT xlautomatic Application.Calculation = xlCalculationManual MsgBox Application.Calculation ' IL VAUT TOUJOURS xlautomatic

---

Je suis sous Excel 2010, qu'est ce qui m'échappe ?

Merci d'avance

Bonjour,
Je ne vois rien d'anormal dans ce code.
La constante xlCalculationManual vaut -4135 et xlCalculationAutomatic -4105

Petite remarque : Attention que dans la ligne de déclaration Dim u, t As Variant, calcul, sans précision de type pour les variables u et calcul toutes ces variables sont de type Variant

Merci de ton aide, j'ai peut être une piste. je t'affiche les variables avec un point d'arrêt :

?"calcul : " & calcul & ",Application.Calculation : " & Application.Calculation
calcul : -4105,Application.Calculation : -4105

Mais ce que j'ai oublié de préciser car c'est en expliquant que je m'en rends compte : cette fonction tourne dans deux contextes, 1. sous VBA au travers d'1 USF et je pense que là ça doit marcher (je n'ai pas encore testé) et 2. dans une feuille de calcul, formule avec fonction personnalisée.
=POINTS(B11;K11;C11)

Et c'est dans le contexte 2 que je suis !

Qu'en penses tu ? Je vais tester dans le contexte 1 pendant que tu réfléchis ...

Bonjour,
Effectivement le point 2 pose problème parce-que une fonction écrite en VBA utilisée comme fonction personnalisée d'excel ne peut renvoyer qu'une valeur et ne peut modifier les propriétés de l'application.

Oui, c'est ça ! Pas cool ...
Je n'ai plus, au pire, qu'à enlever la formule des cellules maintenant que la mise à jour se fait par USF.
Mais si je voulais maintenir cette idée (calcul de la cellule, soit dans la feuille, soit dans l'USF), comment puis je faire ?
Actuellement, dès que je modifie une cellule de la ligne (dans excel car dans VBA, je suis déjà en calcul manuel), toute la colonne de la feuille se re-calcule !
D'où mon essai de passer en calcul manuel pour déclencher un "range(cellule).calculate" puis retour en calcul automatique dans la fonction.
As tu une idée ?
Merci d'avance.

Bonjour,
Il suffit de se placer en mode manuel en modifiant l'option de calcul (onglet [Formules], groupe Calcul, commande Options de calcul).

Ca je sais, bien sur mais je ne veux pas modifier ce paramètre pour tout le classeur et/ou tous les classeurs ouverts (donc l'application), je souhaite le modifier uniquement pour cette feuille, peut être via l'évènement activate ? En substance, je ne comprends pas pourquoi en modifiant une cellule, la colonne entière se modifie ?
Merci