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 :

CONSOLIDATION de 2 TCD [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Inscrit en
    Octobre 2010
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 6
    Points : 6
    Points
    6
    Par défaut CONSOLIDATION de 2 TCD
    Bonjour,


    je debute avec excel et je ne trouve pas de solution rapide a mon probleme sans tout faire manuellement (il y a beaucoup de noms et de parametres)


    j'ai un tableau excel comprenant 2 feuilles :


    feuille 1:

    NOM para1 para2

    marie 45 23
    pierre 41 27
    julie 17 12

    feuille 2:

    NOM para1 para2 para3

    marie 0 1232 122
    pierre 122 121 121
    paul 23 45 23
    henri 42 0 0


    j'aimerais obtenir dans une 3eme feuille un tableau sommant les données des 2 feuilles pour faire
    en sorte qu a chaque nom (unique) on fasse la somme des parametres qui sont tous 2 dans les 2premieres feuilles
    puis on colle les parametres qui n'y sont pas.

    en clair j'aimerais obtenir le tableau suivant



    NOM para1 para2 para3

    marie 45 1255 122
    pierre 163 148 121
    julie 17 12 0
    paul 23 45 23
    henri 42 0 0

    Merci d'avance

  2. #2
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    C'est le Consolider d'excel.
    en vba

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub Macro1()
    Dim Tab1 As String, Tab2 As String
     
    Tab1 = "Feuil1!" & Sheets("Feuil1").Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
    Tab2 = "Feuil2!" & Sheets("Feuil2").Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
    Sheets("Feuil3").Range("A1").Consolidate Sources:=Array(Tab1, Tab2), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    End Sub
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  3. #3
    Futur Membre du Club
    Inscrit en
    Octobre 2010
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 6
    Points : 6
    Points
    6
    Par défaut
    merci, c'est ce que je cherchais.

    le probleme est que mes 2 premieres feuilles sont apparemment des pivot tables (d apres ce que m'a dit un ami pour qui j'essaie de travailler)

    en fait dans les premieres lignes, mes 2 premiers feuillent ressemblent plutot a ceci, ce qui a l'air de gener la consolidation :

    , PARA123 , , , total , PARAAB , , total
    NOM para1 , para2 , para3 , , paraA , paraB ,
    marie 12 , 1 , 0 , 13 , 1 , 1 , 2
    pierre 1 , 0 , 0 , 1 , 0 , 0 , 0
    julie 5 , 0 , 1 , 6 , 0 , 0 , 0

    j'ai cherché dans l'aide de consolidate, et je n'ai pas trouvé ma solution

    je suis désolée de vous déranger une nouvelle fois

  4. #4
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Du moment que tu affecte convenablement les adresses R1C1 de Tab1 et Tab2, la consolidation se fait même pour un TCD, ci-joint code à adapter au niveau des variables Tab1 et Tab2
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub Macro1()
    Dim Tab1 As String, Tab2 As String
     
    Tab1 = "Feuil1!R4C1:R50C6"
    Tab2 = "Feuil2!R2C1:R22C13"
    Sheets("Feuil3").Range("A1").Consolidate Array(Tab1, Tab2), xlSum, True, True
    End Sub
    Sans presser la touche F1, tu n'auras pas d'aide sur .Consolidate.
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  5. #5
    Futur Membre du Club
    Inscrit en
    Octobre 2010
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 6
    Points : 6
    Points
    6
    Par défaut
    Bonjour, en essayant d'ajuster les addresses R1C1 (je viens d'apprendre de quoi il s'agit), je n'arrive pas toujours pas au resultat voulu

    par exemple sur ce tableau si categ est en A1 et la derniere case en H6
    si je mets comme addresse R1C1:R6C8, je n'obtiens dans la consoliadation que les resultats compris dans les cellules situés sous sp raquette, total raq, sp tir, total tir et gd total. (je ne peux pas remplir les cases vides (ou jai mis un # car le fichier semble protégé).

    Je me sens perdue

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    categ,	sp raquette,  #  , total raq, sp tir,       #      , total tir,  gd total
    eleve,	tennis,badmington,  #    , carabine ,#,arc ,     #,        #	
    pierre	1	0	1	0	0	0	1
    marie	2	2	4	1	2	3	7
    julie	1	3	4	3	0	3	7
    G Total	4	5	9	4	2	6	15

  6. #6
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Enlève les sous totaux de tes TCD et pour la plage prendre R2C1:R6C8
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  7. #7
    Futur Membre du Club
    Inscrit en
    Octobre 2010
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 6
    Points : 6
    Points
    6
    Par défaut
    Merci beaucoup de ton aide, mais je n'arrive pas encore au résultat que l'on me demande impérativement (on s'en rapproche beaucoup grâce à toi)

    En fait je ne peux pas modifier les 2 TCD des 2 premières feuilles.

    Aussi, dans la feuille 3, j'aimerais que les noms des sports restent groupés par catégorie. par exemple j'ai le sport ping-pong qui apparait en plus dans la catégorie sport de raquette de la feuille 2, et dans la feuille 3 celui ci apparait bien plus tard que tennis et badmington.

    mon feuille finale doit conserver la structure avec les noms de catégories qui n'apparaissent plus

  8. #8
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    La solution qui me parait judicieuse c'est d'adapter tes sources de données (en occurrence tes TCD et/ou la source de tes TCD) pour pouvoir bénéficier des avantages, pour ton cas, de la consolidation des données.
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

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

Discussions similaires

  1. Excel + TCD + Consolidation
    Par gorgonite dans le forum Développement Office System
    Réponses: 2
    Dernier message: 24/04/2015, 07h31
  2. [XL-2010] AIde pour consolider 2 tcd
    Par Tilous dans le forum Excel
    Réponses: 2
    Dernier message: 14/11/2012, 13h20
  3. [XL-2007] TCD : consolidation d'une seule feuille
    Par doowy38 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/08/2009, 19h06
  4. [VB Excel] Problème avec le nom automatique des TCD
    Par RedBurn dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/12/2005, 13h30
  5. Réponses: 3
    Dernier message: 27/10/2004, 23h15

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