XL 2016 Assistance a conversion de formule excel en macro VBA

ORFERYS

XLDnaute Nouveau
Bonjour,

Je souhaiterai de l'assistance pour convertir une formule excel en VBA pour essayer d'alléger un fichier excel qui devient de plus en plus lourd

Je suis sur Excel version 2016
la formule actuelle est la suivante en B17
=SIERREUR(RECHERCHEV(A17;'HPE-ARUBA'!A:B;2;FAUX);SIERREUR(RECHERCHEV(A17;'glemea-1'!A:B;2;FAUX);SIERREUR(RECHERCHEV(A17;Provision!E:G;3;FAUX);SIERREUR(RECHERCHEV(A17;Provision!F:G;2;FAUX);""))))

Celle ci se trouve dans un classeur excel qui comporte 4 onglets

1 - Proposition ( qui me sert pour les devis)
2 - Provision ( 1 premier tarif)
3 - HPE-ARUBA ( 2nd Tarif)
4 - glemea-1 (3eme Tarif)

J’insère en A17 => A100 ma/mes références et je renseigne après recherche les informations attendus en B17 (Désignation) C17 (information autre) D17 (Prix actuel).

Si quelqu'un pouvait m'aider a transformer cela en VBA ce serait le top

Vous en remerciant par avance
 

Simply

XLDnaute Occasionnel
Bonjour,

VB:
Sub Formula()
  Range("F1:F5").Formula = "=IFERROR(VLOOKUP(A17,'HPE-ARUBA'!A:B,2,FALSE),IFERROR(VLOOKUP(A17,'glemea-1'!A:B,2,FALSE),IFERROR(VLOOKUP(A17,Provision!E:G,3,FALSE),IFERROR(VLOOKUP(A17,Provision!F:G,2,FALSE),""""))))"
End Sub
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour CLS,Simply,
Ou avec une petite fonction perso comme en PJ. ( à adapter suivant vos besoins )
Avantage: c'est automatique et les formules deviennent très simples.

J'ai mis un tuto en ressources sur le sujet :
Ca peut être bien utile lorsqu'une feuille est criblée de fonctions très longues. Çà améliore la lecture et évite des erreurs.
 

Pièces jointes

  • FormulePerso.xlsm
    16.4 KB · Affichages: 10

Discussions similaires

Réponses
4
Affichages
207

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs