XL 2019 Formule en VBA

[tales]

Bonjour

Je cherche depuis un moment une solution a mon soucis.

Je souhaite remettre une formule dans une cellule.

La cellule contient une formule qui affiche le prix d'un produit, mais des fois je dois rentrer le prix moi même et de ce fait la formule s'efface.
Après validation de la facture je souhaite que mon vba remettre la formule dans la cellule.

Voici mon code

Worksheets("Facture").Range("d16").Formula = "=SIERREUR(INDEX(Tableau3[Prix Unitaire];EQUIV(@A16:A27;Tableau6[Code Barre];0));"")"

J'ai essayé avec FormulaLocal.... remplacer les ; par des ,....mais je n'y arrive pas.

Merci pour votre aide

 

[sylvanu]

Bonjour Tales,
Je pense que l'erreur vient de Equiv, la syntaxe est Equiv(valeur;range) et non Equiv(range;valeur) :

Worksheets("Facture").Range("d16").FormulaLocal = "=SIERREUR(INDEX(Tableau3[Prix Unitaire];EQUIV(Tableau6[Code Barre];A16:A27;0));"")"

Sinon fournissez un fichier test, ce sera plus simple.