IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Formule personnalisée avec SOMMEPROD


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Homme Profil pro
    Responsable d'un système d'information métier
    Inscrit en
    janvier 2007
    Messages
    91
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Responsable d'un système d'information métier
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 91
    Points : 142
    Points
    142
    Par défaut Formule personnalisée avec SOMMEPROD
    Bonjour,
    je tente de créer une formule personnalisée avec SOMMEPROD.


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Function VOL_SOC(notion, periode, socvente, matrice, noti, per, socven)
     
         VOL_SOC = Evaluate("=SumProduct((matrice) * (noti = notion) * (per = periode) * (socven = socvente))")
     
    End Function
    Ma syntaxe n'est surement pas correcte, sachant que je manipule des plages nommées, et des data pour les critères.

    Nom : Capture.JPG
Affichages : 57
Taille : 153,9 Ko

    j'ai essayé sans le EVALUATE ...

  2. #2
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    novembre 2003
    Messages
    17 423
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 17 423
    Points : 50 375
    Points
    50 375
    Billets dans le blog
    92
    Par défaut
    Salut

    En premier lieu, je me pose la question de l'utilité d'une fonction perso, puisqu'elle ne fait qu'imiter SOMMEPROD.

    En second lieu, teste ta formule en Excel pour voir comment elle fonctionne, car tu utilises des matrices de tailles différentes alors qu'elles doivent toutes être de même taille: Matrice, noti, socven ont 6 lignes et per en a 11.

    Dans ta fonction, tu utilises les plages nommées et pas les variables passées en argument. Si tu veux utiliser les variables, tu dois recomposer Evaluate avec les noms des plages de données puisque tu dois recomposer ce qui se fait en Excel. Si en Excel, tu as =SOMMEPROD(Tableau1[Valeur]*(Tableau1[Code]="A")), tu dois avoir Evaluate("sumproduct(Tableau1[Valeur]*(Tableau1[Code]=""A""))"). Si tu utilises des plages de la même feuille, ça peut passer:

    Nom : 2021-04-17_082113.png
Affichages : 23
Taille : 111,7 Ko


    Mais dès que tu vas aller chercher tes matrices sur d'autres feuilles, ça va être un peu plus lourd à gérer si tu passes des plages (et encore, ici il n'y en a que deux...):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Function TestMatrice(MatA, MatB)
      TestMatrice = Evaluate("sumproduct('" & MatB.Parent.Name & "'!" & MatB.Address & " * ('" & MatA.Parent.Name & "'!" & MatA.Address & " =""A""))")
    End Function
    Si tu passes les noms, c'est plus facile en VBA mais plus compliqué et nettement moins dynamique en Excel.

    De plus, sumproduct en VBA n'offre pas les mêmes possibilités qu'en Excel => Application.SumProduct ne peut pas être écrit avec la même syntaxe qu'en Excel. Cela en fait une fonction particulièrement délicate à gérer en VBA.

    Que cherches-tu à réaliser? C'est pour des tests ou un apprentissage ou bien tu as un réel besoin derrière?
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  3. #3
    Membre habitué
    Homme Profil pro
    Responsable d'un système d'information métier
    Inscrit en
    janvier 2007
    Messages
    91
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Responsable d'un système d'information métier
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 91
    Points : 142
    Points
    142
    Par défaut
    Bonjour Pierre,

    merci d'avoir regardé mon problème.

    Tu m'as mis sur la piste avec ton exemple; en fait il fallait ajouté .Address y compris pour les valeur à tester dans les égalités.



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Option Explicit
     
    Function VOL_SOC(matrice, noti, per, socven, t_noti, t_per, t_sven)
     
     
          VOL_SOC = Evaluate("SumProduct((" & matrice.Address & ")*(" & noti.Address & " = " & t_noti.Address & ")*(" & per.Address & " = " & t_per.Address & ")*(" & socven.Address & " = " & t_sven.Address & "))")
     
     
    End Function


    Evidemment j'avais posté un extrait simple pour qu'on m'aide à comprendre la syntaxe à appliquer, mon besoin est autrement plus complexe.

  4. #4
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    novembre 2003
    Messages
    17 423
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 17 423
    Points : 50 375
    Points
    50 375
    Billets dans le blog
    92
    Par défaut
    D'où ma remarque, régulièrement exprimée sur les forums, qu'il est préférable de donner la situation réelle plutôt que "simplifier", qui amène à des réponses éventuellement inadaptées. C'est un peu comme si tu disais "Je n'arrive pas à piloter mon Cessna monomoteur" alors qu'en fait, tu te débats dans le cockpit d'un 747...
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

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

Discussions similaires

  1. Réponses: 4
    Dernier message: 22/03/2021, 16h42
  2. [XL-2010] formule avec sommeprod
    Par tiesto08 dans le forum Macros et VBA Excel
    Réponses: 24
    Dernier message: 05/03/2017, 19h56
  3. [XL-2010] Formule si avec sommeprod
    Par bbcancer dans le forum Excel
    Réponses: 7
    Dernier message: 11/12/2012, 12h11
  4. [XL-2003] Simplifier formule avec sommeprod()
    Par LaPanic dans le forum Excel
    Réponses: 8
    Dernier message: 16/09/2009, 14h09
  5. [FORMULE]Probleme avec la fonction SOMMEPROD()
    Par MasterZORG dans le forum Excel
    Réponses: 2
    Dernier message: 27/07/2007, 10h02

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