Discussion :

[Kintin]

Bonjour,
Je ne parviens pas à formuler ma recherche correctement alors je me décide à poser ma question directement ici.

Dans un formulaire, puis un état, je dois afficher un calcul qui va varier en fonction des infos encodées.
Si un champ est à 0, le calcul ne doit pas l'inclure.
Exemple :
Dans le calcul x * y% + x * z%, si l'on encode dans les champs x, y et z les valeurs 123, 1 et 0
Le calcul est : 123 * 1% + 123 * 0%. J'aimerai qu'il affiche uniquement 123 * 1%

Pour info, le vrai calcul est le suivant :
x*a1% + x*a2% + ... + x*a9% + a10 + a11 + ... +a23

Ces champs se trouvent dans la table J (liée à la table C)
1enregistrement de la table C peut avoir plusieurs lignes dans la table J.
Un énorme merci d'avance à ceux qui m'accorderont un peu de leur temps.

[Invité]

Bonjour,

via une fonction dans un module VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Function AffCalcul(ByVal x As Variant, ParamArray a() As Variant) As String
Const cMul As String = " * ", cAdd As String = "% + "
Dim v As Variant, y As String, s As String
y = CStr(x)
For Each v In a
    If Not IsMissing(v) Then If IsNumeric(v) And v > 0 Then s = s & y & cMul & CStr(v) & cAdd
Next v
If Len(s) > 0 Then AffCalcul = Left$(s, Len(s) - Len(cAdd) + 1)
End Function

Cette fonction peut être appelée dans une requête, elle accepte autant de valeurs que vous souhaitez (a1, a2, a3,...a50) et retire les calcul avec 0
exemple : AffCalcul([X], [a1], [a2],...)
Le premier paramètre X correspond à la constante, ici 123

[Kintin]

Merci, je vais essayé d'implémenter ça.
Je ne suis pas un pro des fonctions mais je pense que ça ira.
Je reviens donner un retour plus tard dans la nuit.

[Kintin]

Énorme merci à toi galoir,

Je ne sais pas si tu as inventé ce module tout seul, mais ça fonctionne.
J'ai juste du mettre un ; au lieu de la virgule dans la requete.

C'est toujours un plaisir d'apprendre de nouveau code vba. MERCI

[Kintin]

Rebonjour à tous,

Galoir, j'espère que tu es toujours présent sur le forum.

Le code fonctionnait très bien.
Mais j'ai maintenant un soucis que je ne m'explique pas.
il me note un message d'erreur sur la ligne "Y = Cstr(x)", puis access redémarre.

Quelqu'un sait-il d'où pourrait venir le problème.
-----------
Pour info, le critère de la requête est la suivante :
CalcDroit: Affcalcul([ValRegul];[TxDD];[TxDcomp];[TxDADump];[TxDadd];[TxDAPays])
Un code permet de mettre la valeur 0 pour les champs qui seraient non rempli.

Merci à vous,
je ne peux plus imprimer mes documents!!!