1. #1
    Membre à l'essai
    Homme Profil pro
    fonctionnaire
    Inscrit en
    janvier 2015
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : janvier 2015
    Messages : 34
    Points : 22
    Points
    22

    Par défaut modifier l'affichage d'un calcul si un champ = 0

    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.

  2. #2
    Membre actif
    Profil pro
    Inscrit en
    août 2010
    Messages
    138
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 138
    Points : 203
    Points
    203

    Par défaut

    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

  3. #3
    Membre à l'essai
    Homme Profil pro
    fonctionnaire
    Inscrit en
    janvier 2015
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : janvier 2015
    Messages : 34
    Points : 22
    Points
    22

    Par défaut

    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.

  4. #4
    Membre à l'essai
    Homme Profil pro
    fonctionnaire
    Inscrit en
    janvier 2015
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : fonctionnaire

    Informations forums :
    Inscription : janvier 2015
    Messages : 34
    Points : 22
    Points
    22

    Par défaut

    É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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. separer l affichage et les calculs
    Par ggwal dans le forum OpenGL
    Réponses: 9
    Dernier message: 03/03/2006, 11h29
  2. [VB6] Comment modifier l'affichage au sein d'un Webbrowser
    Par jlvalentin dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 16/12/2005, 14h06
  3. Modifier l'affichage d'une requête
    Par seal dans le forum Langage SQL
    Réponses: 3
    Dernier message: 21/09/2005, 14h26
  4. Comment modifier l'affichage des objets cachés de Windows ?
    Par maximdus dans le forum API, COM et SDKs
    Réponses: 23
    Dernier message: 23/07/2005, 11h45
  5. Conserver l'affichage pendant les calculs ?
    Par ceugniet dans le forum C++Builder
    Réponses: 5
    Dernier message: 31/03/2004, 12h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo