Discussion :

[popofpopof]

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

[Invité]

Bonjour

Vu ton code, j'essaierai bien avec une instruction SELECT ... CASE.
Regarde dans l'aide et sur le forum il y'a des exemples.
Essaye de le faire, c'est trés simple.
Si tu as des soucis reviens avec le code.

Starec

[popofpopof]

ok merci j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub MONT_RATIO_MARCHE_SIGNE_ESTIM_AfterUpdate()
Select Case Me.[NUM_TYPE_RATIO]
        Case 1
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SHOB] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 2
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SHAB] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 3
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SURF_COUVERTURE] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 4
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SURF_VRD] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 5
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [Nb_LOGEMENT] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 6
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [NB_PACK_SS] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 7
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [NB_PACK_EXT] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 8
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [NB_PACK_COUV] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 9
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SURF_ETANCHEE_INACE] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 10
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SURF_ETANCHEE_ACCECI] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 11
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SURF_ETANCHEE_VEGETA] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 12
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SURF_PLANTEE] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case 13
        Me.[MONT_ESTIM] = ([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [METRE_1] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE])
        Case Else
        Me.[MONT_RATIO_MARCHE_SIGNE_ESTIM] = 0#
 
        End Select

sa marche super bien je souhaite maintenant ajoute la fonction Round(calcul;2)
comment faire...?

j'ai un peu probleme je veux que les calculs ce face même ci [Forms]![estimation d une new operation]![Periode_ESTIM] est egale a vide comment faire???

[Invité]

Bonjour

sa marche super bien je souhaite maintenant ajoute la fonction Round(calcul;2)
comment faire...?

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.[MONT_ESTIM] = Round(([MONT_RATIO_MARCHE_SIGNE_ESTIM] * [SHOB] * [Forms]![estimation d une new operation]![Periode_ESTIM] / [INDICE]),2)

j'ai un peu probleme je veux que les calculs ce face même ci [Forms]![estimation d une new operation]![Periode_ESTIM] est egale a vide comment faire???

Regarde du coté de la fonction NZ.

Starec

[popofpopof]

je ne trouve pas et comprend pas comment uiliser la fonction NZ

j'ai crée un autre forum sur le même sujet avec j'ai poste ma base tu peux alle voir et me m explique la procedure?

http://www.developpez.net/forums/sho...d.php?t=397138