Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Formule en VBA

tales

XLDnaute Nouveau
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
VB:
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Tales,
Je pense que l'erreur vient de Equiv, la syntaxe est Equiv(valeur;range) et non Equiv(range;valeur) :
VB:
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.
 

Discussions similaires

Réponses
2
Affichages
860
Réponses
8
Affichages
469
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…