Prog VBA d'intervalle dans un tableau croisé dynamique

Version imprimable

08/07/2016, 08h08
guiguielsasser

2 pièce(s) jointe(s)

Prog VBA d'intervalle dans un tableau croisé dynamique

Bonjour, bonsoir,

Votre mission, si toute fois vous....;)
Enfaite c'est un tout petit souci pour vous tous bon comme vous êtes, qui moi m'a déjà pris plus de XXh de travail...

J'aimerais effectuer des intervalles pour regrouper mes lignes du tableau croisé dynamique. Les fichiers sont bien plus démonstratifs que du texte, je vous joins deux fichiers.

Test_TCD_VBA : ou j'ai réussi ce dont je voulais plus ou moins (une petite erreur en fin de code...)

TCD_VBA: application presque similaire où je bloque, il ne m'analyse pas bien les variables!

Je vous joins les deux fichiers pour que vous avez la possibilité de les comparer.
08/07/2016, 08h30
halaster08

Bonjour,

Citation:

Les fichiers sont bien plus démonstratifs que du texte

Ou pas, une explication claire est bien plus utile que voici mes fichiers débrouillez vous avec.

De plus http://www.developpez.net/forums/d84...s-discussions/
08/07/2016, 08h51
shynen

Effectivement tu auras nettement plus de chance de te faire aider en indiquant la partie de code où tu as besoin d'aide à l'aide de la balise code
Sur ce coup tu risques de ne pas avoir de retour car beaucoup de personnes n'ouvriront pas ton fichier macro

Effectivement veuillez bien m'excuser j'ai sauté une étape pensant bien faire.

Pour explication, je souhaite regrouper mes données de ligne du tableau croisé dynamique en intervalle. Je sais que pour les dates et valeurs numériques cela est possible directement avec la fonction grouper, mais dans mon cas ce n'est pas applicable.
J'ai pour données des valeurs en % de 0 à 100, et du texte. Et je souhaite recueillir les informations en plusieurs intervalles:
- X=0%
- 0%<X<=25%
- 25%<X<=50%
- 50%<X<=75%
- 75%<X<100%
- X=100%
- reste en texte comme le fait automatiquement Excel.

J'ai réussi à établir une macro (fichier joint test_TCD_VBA) qui a été un fichier créé pour simplifier la prog. Mais sur mon fichier source (TCD_VBA), du fait que j'ai trop de champ dans mon tableau j'ai dû élargir mes sources de données et je n'arrive pas à comparer mes variables à celles du TCD.

Ci-dessous le code:

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub test()
 
'Crée des groupes en fonction de deux intervales
 
Dim t() As Variant, i As Byte, c As Range, p As Range, pi As PivotItem, t2 As String
'déclaration des intervales
t = Array(0, 0.25, 0.5, 0.75, 1)
With Feuil5.PivotTables("Tableau croisé dynamique9")
    'trie des valeurs numérique plus petit au plus grand
    .PivotFields("[Machine_ISL].[avanc.].[avanc.]").AutoSort xlAscending, "[Machine_ISL].[avanc.].[avanc.]"
    'commencement des 5 boucles
    i = 0
        For Each c In .PivotFields("[Machine_ISL].[avanc.].[avanc.]").DataRange
            If c = t(i) Then If p Is Nothing Then Set p = c Else Set p = Union(p, c)
        Next c
        'écriture en mémoire de l'intervale des groupes
        If Not p Is Nothing Then t2 = t(i) & ";": If p.Count > 1 Then p.Group
        Set p = Nothing
     For i = 1 To 3
        For Each c In .PivotFields("[Machine_ISL].[avanc.].[avanc.]").DataRange
            If c > t(i - 1) And c <= t(i) Then If p Is Nothing Then Set p = c Else Set p = Union(p, c)
        Next c
        'écriture en mémoire de l'intervale des groupes
        If Not p Is Nothing Then t2 = t2 & t(i - 1) & " à " & t(i) & ";": If p.Count > 1 Then p.Group
        Set p = Nothing
    Next i
   i = 4
        For Each c In .PivotFields("[Machine_ISL].[avanc.].[avanc.]").DataRange
            If c > t(i - 1) And c < t(i) Then If p Is Nothing Then Set p = c Else Set p = Union(p, c)
        Next c
        'écriture en mémoire de l'intervale des groupes
        If Not p Is Nothing Then t2 = t2 & t(i - 1) & " à " & t(i) & ";": If p.Count > 1 Then p.Group
        Set p = Nothing
    i = 4
        For Each c In .PivotFields("[Machine_ISL].[avanc.].[avanc.]").DataRange
            If c = t(i) Then If p Is Nothing Then Set p = c Else Set p = Union(p, c)
        Next c
        'écriture en mémoire de l'intervale des groupes
        If Not p Is Nothing Then t2 = t2 & t(i) & (";VR;VR(FC.GW;"): If p.Count > 1 Then p.Group
        Set p = Nothing
 
 
 
    With .PivotFields(.PivotFields.Count)
        i = 0
        'boucle renomme les groupes avec nom intervalle
        For Each pi In .PivotItems
        If pi.Visible Then pi.Name = Split(t2, ";")(i): i = i + 1
        Next pi
 
End With
End With
End Sub

08/07/2016, 10h02
78chris

Bonjour

La source de ton TCD est dans PowerPivot : est-ce volontaire ?
11/07/2016, 09h52
guiguielsasser

Exactement, je pensais qu'il était nécessaire parce que tous mes champs n'apparaissaient pas dans mon TCD.
Après avoir actualisé j'ai réussi à avoir tous les champs, du coup j'ai plus ou moins réussi la prog. (encore des erreurs mais fonctionne tout de même)

Merci de m'avoir aiguillé sur le problème, je modifie le statut en résolu :)