Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compatibilité EXCEL 2010 avec EXCEL 2007

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mimiaqu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mimiaqu

XLDnaute Nouveau
Bonjour a tous,

Grace à votre précieuse aide j'ai obtenu la macro qui permet de créer un TCD avec des calculs qui correspondant à la méthode Pareto, le programme marche bien sur EXCEL 2010 sauf que quand j'ai voulu transférer le fichier a mes collègues les macros ne fonctionnent plus, le problème est dû au code "xlPercentRunningTotal" qui permet de calculer le % du résultat cumulé qui n'existe pas dans excel 2007.

J'ai essayé de créer un élément calculé dans le TCD mais malheureusement ça ne marche pas 🙁

pourriez vous m'aider a résoudre ce problème SVP

Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

Bonjour

Je n'ai pas regardé le code mais effectivement cela ne marche pas avant la version 2010

Ce qui est possible de faire c'est un cumul classique en valeur.
Ensuite on a le choix entre :
  • un filtre 10 premiers sur les 80% du haut
  • l'ajout des valeurs en % de la colonne, un tri et une mise en forme conditionnelle qui clore les lignes dont la somme ne dépasse pas 80%
Un fois ton choix effectué, on peut bine sûr automatiser.
 
Vote positif 0 Vote négatif
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

Merci d'avoir pris le temps de répondre effectivement le deuxième choix me semble la plus adéquate, par contre pour l'automatisation je sais pas du tout comment faire.
Merci encore une fois
 
Vote positif 0 Vote négatif
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

Bonjour

Code: 
   With Worksheets("tcd").PivotTables("Tableau croisé dynamique3").PivotFields("Nombre de tg_nat").DataRange
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=SOMME($C$5:$C5)<=0,8"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5
            .TintAndShade = 0.599963377788629
        End With
        .FormatConditions(1).StopIfTrue = False
        .FormatConditions(1).ScopeType = xlFieldsScope
    End With

A adapter :
  • selon nom du TCD
  • position du TCD (on peut rendre la cellule C5 variable éventuellement)
  • Mise en forme souhaitée
 
Vote positif 0 Vote négatif
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

Bonjour Chris,

j'ai intégré la partie du code comme convenu mais me donne une erreur dans la partie coloré du code
pourquoi a votre avis?
MERCI d'avance

Code: 
Option Explicit
Sub test()
Dim tcd As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 0 Then .PivotTables(1).TableRange2.Delete
    Set tcd = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With
With tcd
    .AddDataField .PivotFields("tg_nat"), "Occurences", xlCount
    .AddDataField .PivotFields("tg_nat"), "Nombre de tg_nat", xlCount
    .AddDataField .PivotFields("Q_compenser"), "Min de Q_compenser", xlMin
    With .PivotFields("tg_nat")
        .Orientation = xlRowField
        .Position = 1
    End With

    With .PivotFields("Nombre de tg_nat")
       [COLOR="#FF8C00"] .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=SOMME($C$5:$C5)<=0,8"[/COLOR]
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5
            .TintAndShade = 0.599963377788629
        End With
        .FormatConditions(1).StopIfTrue = False
        .FormatConditions(1).ScopeType = xlFieldsScope
    End With
    With .DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    .PivotFields("tg_nat").AutoSort xlDescending, "Occurences", .PivotColumnAxis.PivotLines(1), 1
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

Bonjour

La couleur n'est pas passée...

Edit : si je vois la balise.

Je l'ai fait en version 2010 mais le code de MFC ne doit ps être différent. Je vais essayer de tester sur une machine en 2007.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

Bonjour

Il y avait plusieurs erreurs :
  • la mise en forme était faite trop tôt car l'orientation des champs calculés étaient en colonnes et non en ligne
  • tu avais oublié DataRange
  • le champ concerné n'était pas au format %
  • le tableau n'est pas au même endroit (plus haut) : j'ai adapté la formule

Code: 
Option Explicit
Sub test()
Dim tcd As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 0 Then .PivotTables(1).TableRange2.Delete
    Set tcd = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With
With tcd
    .AddDataField .PivotFields("tg_nat"), "Occurences", xlCount
    .AddDataField .PivotFields("tg_nat"), "Nombre de tg_nat", xlCount
        .PivotFields("Nombre de tg_nat").Calculation = xlPercentOfColumn
        .PivotFields("Nombre de tg_nat").NumberFormat = "0.00%"

    .AddDataField .PivotFields("Q_compenser"), "Min de Q_compenser", xlMin
    With .PivotFields("tg_nat")
        .Orientation = xlRowField
        .Position = 1
    End With

    With .DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    With .PivotFields("Nombre de tg_nat").DataRange
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=SOMME($C$2:$C3)<=0,8"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5
            .TintAndShade = 0.599963377788629
        End With
        .FormatConditions(1).StopIfTrue = False
        .FormatConditions(1).ScopeType = xlFieldsScope
    End With
    .PivotFields("tg_nat").AutoSort xlDescending, "Occurences", .PivotColumnAxis.PivotLines(1), 1
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

Re

Merci de ne pas utiliser les MP pour les questions techniques.

Tu peux ajouter une formule en dehors du TCD :
Code: 
=SI(ET(A3<>"";A3<>"Total général");SOMME($C$3:C3);"")
 
Vote positif 0 Vote négatif
Re : Compatibilité EXCEL 2010 avec EXCEL 2007

RE

Tu peux soit mettre des formules sur une grande hauteur (assez pour que même en cas d'allongement du TCD cela marche) soit par vba adapter la plage.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Problème de compatibilité entre Microsoft 365 (office) et 2007 en VBA
Réponses
8
Affichages
456
TooFatBoy
  • Résolu(e)
XL 2021 Formule ne fonctionne pas avec excel 2021
Réponses
4
Affichages
76
goube
M
  • Résolu(e)
XL 2021 Problème de version sur macro Excel 2010 - 2021
Réponses
12
Affichages
469
mamarus1
M
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
243
ali591
A
  • Résolu(e)
XL 2010 Evenements BeforeUpdate et AfterUpdate Excel 2010 [RESOLU]
Réponses
2
Affichages
326
cathodique
S
  • Question Question
Autres Excel 2007 : Ajustement des ordonnées d'un graphique
Réponses
0
Affichages
356
SPARKLETOF
S
A
  • Question Question
Autres Créer un tableau de suivi des encaissements clients avec excel 2007
Réponses
5
Affichages
612
Aragorn60
A
A
  • Question Question
XL 2019 Fonction "Rang" avec des cellules vides
Réponses
7
Affichages
804
Astyanax
A
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
886
firecarl
F
S
  • Question Question
XL 2021 tableur excel pour bactérios
Réponses
5
Affichages
191
sergio67
S
G
  • Question Question
XL 2010 Excel 2010
Réponses
7
Affichages
643
giantlaughs
G
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
N
  • Résolu(e)
Microsoft 365 Je ne peux plus ouvrir mon fichier Excel sur Mac
Réponses
11
Affichages
1 K
Ben66
B
C
  • Question Question
Microsoft 365 Impression PDF d'un Word via une macro Excel
Réponses
11
Affichages
1 K
job75
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
265
JHA
J
  • Question Question
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
7 K
TooFatBoy
J
  • Question Question
XL 2016 importer fichier mdb : probleme passage de excel 2010 à 2016
Réponses
12
Affichages
970
Hasco
E
  • Résolu(e)
XL 2013 Créer un moteur de recherche sur un fichier
2 3 4
Réponses
51
Affichages
5 K
Edmond_Dantes
E
M
  • Question Question
XL 2016 Excel UserForm VBA
Réponses
3
Affichages
528
patricktoulon
S
  • Question Question
Autres disparition commentaires dans excel
Réponses
5
Affichages
800
samfp
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…