VBA et formules

[fragl]

Bonjour,

J'ai souvent besoin de faire apparaître le contenu d'une formule dans la cellule voisine. J'ai mis un bouton qui exécute le VBA suivant :

ActiveCell.Formula = " " & ActiveCell.Offset(0, -1).Formula

Tout va bien, sauf que la formule de la feuille de calcul est convertie automatiquement en anglais. Par exemple, la formule utilisée :

=SI(ESTVIDE(D7);"";INDEX(Zone1;EQUIV(D7;Zone2;-1)))

devient :

=IF(ISBLANK(D7),"",INDEX(Zone1,MATCH(D7,Zone2,-1)))

Et moi... pas content du tout !
Je ne vois pas comment forcer Formula à rester en français.

Merci d'avance...
fragl

 

[Ti]

sans avoir testé : essaie de remplacer Formula par FormulaLocal.

 

[fragl]

Salut Ti

merci de m'avoir répondu.
Je n'avais pas pensé à FormulaLocal. Ça marche impeccable. Je m'en souviendrai.

 

[@+Thierry]

Salut Fragl, RE Ti


Testé et Approuvé !! je ne connaissais même pas FormulaLocal ...

THANKS | ActiveCell.Formula = " " & ActiveCell.Offset(0, -1).FormulaLocal | MERCI


@+Thierry