je souhaite réaliser un calcul dans une zone de texte dans la propriété de cette zone de texte dans source contrôle j'ai mis sa :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=Round(VraiFaux([NUM_TYPE_RATIO]=1;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SHOB];VraiFaux([NUM_TYPE_RATIO]=2;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SHAB];VraiFaux([NUM_TYPE_RATIO]=3;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SURF_COUVERTURE];VraiFaux([NUM_TYPE_RATIO]=4;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SURF_VRD];VraiFaux([NUM_TYPE_RATIO]=5;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[NB_LOGEMENT];VraiFaux([NUM_TYPE_RATIO]=6;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[NB_PACK_SS];VraiFaux([NUM_TYPE_RATIO]=7;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[NB_PACK_EXT];VraiFaux([NUM_TYPE_RATIO]=8;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[NB_PACK_COUV];VraiFaux([NUM_TYPE_RATIO]=9;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SURF_ETANCHEE_INACE];VraiFaux([NUM_TYPE_RATIO]=10;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SURF_ETANCHEE_ACCECI];VraiFaux([NUM_TYPE_RATIO]=11;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SURF_ETANCHEE_VEGETA];VraiFaux([NUM_TYPE_RATIO]=12;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[SURF_PLANTEE];VraiFaux([NUM_TYPE_RATIO]=13;[MONT_RATIO_MARCHE_SIGNE_ESTIM]*[METRE_1];0)))))))))))))*[Formulaires]![estimation d une new operation]![Periode_ESTIM]/[INDICE];2)

sa marche bien mais on est limité en quantité de condition car apres il me marque trop compléxe.

Donc je voudrai convertir ma formule en VBA comment faire?? qui peux m'aide?


ps: je ne connai pas trop le vba encore c pour sa que je vien demande une petite aide pour commence