Discussion :

[Pesnoob]

Bonjour,

Voilà, j'aurais besoin d'un peu d'aide pour une histoire de tableaux dynamiques un peu particulière : j'avais déjà demandé de l'aide ici pour quelque chose d'assez semblable : faire en sorte que modifier une ComboBox entraîne un changement de mois sur le TCD.

Mon axe mois du TCD contient les 12 mois de chaque année. J'ai réussi à bidouiller quelque chose fonctionnant, mais j'aimerais maintenant améliorer cela : en effet, pour l'instant, la solution est très "manuelle" : j'ai mis un Select Case pour choisir le cas entre les 12 mois de l'année.

Voici le "code" d'un des mois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"[Dimension Temps].[Mois]").CurrentPageName = _
"[Dimension Temps].[Mois].&[201106]"

J'aimerais savoir comment je pourrais changer de mois via une variable. En gros, j'aimerais qu'il n'y ait plus la référence à un mois précis à la fin de la ligne, mais avoir à la place une valeur modifiable.

Merci d'avance

[Godzestla]

Bonjour,

merci de montrer TOUT le groupe SELECT CASE et la définition des variables que tu y utilises.

[Pesnoob]

Désolé, voici le reste du Select Case. ^^'

Code :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    Select Case ComboBox1.Value
        Case "Janvier"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201101]"
        Case "Février"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201102]"
        Case "Mars"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201103]"
        Case "Avril"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201104]"
        Case "Mai"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201105]"
        Case "Juin"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201106]"
        Case "Juillet"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201107]"
        Case "Août"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201108]"
        Case "Septembre"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201109]"
        Case "Octobre"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201110]"
        Case "Novembre"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201111]"
        Case "Décembre"
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[201112]"
    End Select

[Godzestla]

Ok,

merci.

Tu dois absolument conserver cette définition de Combobox.value, ou bien on peut passer sur une valeur (en string) de 01 pour janvier à 12 pour décembre. ?

Le but étant de tester le mois sur sa valeur en 2 chiffres qui serait utilisée directement dans le code pour donner qqchose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[2011" & combobox1.value & "]"

[Pesnoob]

Oui, je dois conserver cela, dans l'idéal. Même si ton idée est vraiment très tentante vu comment elle me simplifierait la vie.

[Godzestla]

Alors,

je te suggère la chose suivante, pour faire simple et vite.

Quand tu récupérères la zone dans ton combobox, tu la convertis en 1 string de 2 chiffres, 01 à 12.

il y a des tas de moyen pour cela (Select case, .find, Vlookup sur une table, ...)
Attention à bien récupérer le mois en 2 chiffres, donc dans un string.

Vite fait, avec select case, cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 Dim Num_Mois as string
 Select Case ComboBox1.Value
        Case "Janvier"
            Num_mois = "01"
'etc etc etc
        Case "Décembre"
            Num_mois = "12"
    End Select
 
            ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
                "[Dimension Temps].[Mois]").CurrentPageName = _
                "[Dimension Temps].[Mois].&[2011" & Num_Mois & "]"

[mercatog]

Bonjour
Un autre procédé pour récupérer le mois en chiffre à partir du mois en lettres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim m As String
 
m = Format((DateValue("1 " & Me.ComboBox1.Value)), "mm")
MsgBox m

[Pesnoob]

Merci beaucoup pour l'aide : je viens de tester, ça marche, et j'ai appliqué plus ou moins la même logique à l'année grâce à une textbox.

Merci encore de l'aide, rapide et efficace !