Discussion :

[remi.py]

Hello

Je souhaiterai désactiver la mise-à-jour automatique d'une formule le temps d'une macro.

En effet, j'ai une cellule qui a pour formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=COUNTA($A$5:$A$65536)

Ma macro va supprimer toutes les lignes 5 à 65536, avant de les repopuler. Mais après suppression, la formule devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=COUNTA(#REF!)

Y a-t-il moyen d'empêcher cela ? Je pensais à une solution du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

Mais ça ne marche pas.

Une autre solution consisterait à réécrire la formule à la fin de la macro, mais j'aimerais éviter.

D'avance merci pour votre aide

[Gorfael]

Salut remi.py et le forum
Le problème est que c'est Excel qui prend la main pour les formules. Il actualise ses formules quoique tu fasses.
Je te conseillerais de Stocker la formulalocal dans une variable et de la recoller après. Ou de modifier ta formule avec un DECALER (in french in the texte ) en prenant pour référence A4 (qui n'est pas effacée, elle).
la plage sera définie par une formule du style
DECALER($A$4;1;0;65532;1)
A+

[remi.py]

Cool ! Nickel, ça marche

Thanks a lot, Gorfael !

Voilà bien une conne... une ineptie des développeurs Microsoft, traduire les noms de fonctions Office ! J'avais oublié, ça. J'ai passé un peu de temps avant de la retrouver, je bosse sur une version anglaise d'Office. Et en fait, c'était tout simplement OFFSET.

Merci encore

[Fvandermeulen]

Bonjour,
Les traductions de fonction me posent aussi des petits soucis, voici un doc qui peut aider, je crois que je l'ai trouvé via ce forum d'ailleurs...

[naoufal.elbekri]

Bonjour,

C'est peut être tard ma réponse, mais vaut mieux tard que jamais.

Pour bloquer la mise à jour automatique des formules Excel tu peux ajouter ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlCalculationManual

Tu mets cette commande au début de ta macro et vers la fin tu ajoutes cette ligne pour remettre le calcul automatique des formules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlCalculationAutomatic

Voilà

J'espère répondre à la question