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 :

Somme de valeurs en fonction des dates [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Superviseur logistique
    Inscrit en
    Février 2015
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Superviseur logistique
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Février 2015
    Messages : 13
    Par défaut Somme de valeurs en fonction des dates
    Bonjour à toutes et à tous
    Je tourne en rond sur un problème certainement très simple à résoudre mais...
    En colonne A j'ai des dates avec plusieurs fois les mêmes.
    Je cherche à faire les sommes des colnnes B et C en en tenant compte des dates identiques de la conne A.
    Si j'ai 4 fois le 1/1/2015 en ColA, récuperer la somme des colB et C pour cette date.
    Ci-joint un fichier plus explicite.
    Meci d'avance pour votre aide
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    c'est possible par formule : SOMME.SI()
    à placer en G2, et ensuite tu peux l'étendre sur l'ensemble de tes deux colonne G et H

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SOMME.SI($A$2:$A$25;$F2;B$2:B$25)

  3. #3
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    Juillet 2012
    Messages
    9 308
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : Juillet 2012
    Messages : 9 308
    Billets dans le blog
    15
    Par défaut


    Un tableau croisé dynamique aussi t'aurait permis d'avoir ton résultat.

    Nom : Sans titre.png
Affichages : 1770
Taille : 29,2 Ko
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc..
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  4. #4
    Membre averti
    Femme Profil pro
    Superviseur logistique
    Inscrit en
    Février 2015
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Superviseur logistique
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Février 2015
    Messages : 13
    Par défaut
    Merci à vous 2
    Joe.levrai ça marche en terme de résultats mais je souhaiterais que la date en colnne F soit extraite automatiquement de la colonne A
    Milkoseck comment créer ce tdc en vba

  5. #5
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    Juillet 2012
    Messages
    9 308
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : Juillet 2012
    Messages : 9 308
    Billets dans le blog
    15
    Par défaut
    Je ne suis pas expert en VBA. Peut-être que joe.levrai pourra t'aider à le faire à partir du code ci-dessous que j'ai tiré de l'enregistreur de macro.

    [CODE]
    Code vba : 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
    Sub CreationTCD()
    '
    ' CreationTCD Macro
    '
     
    '
        Range("A1:C25").Select
        ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$C$25"), , xlYes).Name = _
            "Tableau1"
        Range("Tableau1[#All]").Select
        Sheets.Add
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "Tableau1", Version:=xlPivotTableVersion12).CreatePivotTable _
            TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique1", _
            DefaultVersion:=xlPivotTableVersion12
        Sheets("Feuil4").Select
        Cells(3, 1).Select
        With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date")
            .Orientation = xlRowField
            .Position = 1
        End With
        ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
            PivotTables("Tableau croisé dynamique1").PivotFields("Durée"), "Somme de Durée" _
            , xlSum
        ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
            PivotTables("Tableau croisé dynamique1").PivotFields("Montant"), _
            "Somme de Montant", xlSum
        Range("A4").Select
        ActiveSheet.PivotTables("Tableau croisé dynamique1").CompactLayoutRowHeader = _
            "Dates"
        Range("D4").Select
    End Sub

    En cas de besoin, voici le fichier :
    Fichiers attachés Fichiers attachés
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc..
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  6. #6
    Membre averti
    Femme Profil pro
    Superviseur logistique
    Inscrit en
    Février 2015
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Superviseur logistique
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Février 2015
    Messages : 13
    Par défaut
    Pour le tdc j'ai fait macro auto pour voir le code.
    Le champ du tdc dans mon fichier est defini comme suit dans la macro:

    SourceData:= "Feuil1!R1C1:R25C3"_

    Que dois-je écrire à la place de R25 pour que mon tdc puisse évoluer en grandeur jusqu'a R??

  7. #7
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    Juillet 2012
    Messages
    9 308
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : Juillet 2012
    Messages : 9 308
    Billets dans le blog
    15
    Par défaut
    je pense que le plus simple serait de nommer la source des données en par exemple Tableau1 comme dans le code que je t'ai envoyé.

    Edit : la procédure pour créer un TCD par macro est décrite dans la . Voici le lien :http://excel.developpez.com/faq/?pag...eationTCDMacro.

    Bon courage
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc..
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

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

Discussions similaires

  1. Ajouter des valeurs intermédiaires en fonction des dates
    Par peofofo dans le forum Requêtes
    Réponses: 3
    Dernier message: 22/06/2015, 12h32
  2. [XL-2003] Somme en fonction des dates
    Par lili189 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/08/2012, 12h05
  3. calculer des valeurs en fonctions de dates
    Par texas2607 dans le forum Excel
    Réponses: 9
    Dernier message: 21/01/2011, 14h01
  4. Réponses: 2
    Dernier message: 20/12/2008, 16h45
  5. [Dates] Une fonction des dates
    Par amine_en_france dans le forum Langage
    Réponses: 3
    Dernier message: 06/03/2007, 12h07

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