Chapitre 7

Chapitre 7 : Tableaux croises dynamiques



Comme pour les graphiques, VB permet de changer facilement les parametres des tableaux croises dynamiques. Les procedures seront realisees avec les trois modes deja etudies : procedures evenementielles, macros enregistrees et macros concues manuellement.
-Cliquez Nouveau
-Tapez les trois tableaux suivants :

Nord
1er Tri. 2e Tri. 3e Tri. 4e Tri.
Abonnement 368 528 326 727
Gym 457 613 269 613
Sauna 420 401 223 514

Ouest
1er Tri. 2e Tri. 3e Tri. 4e Tri.
Abonnement 220 365 178 368
Gym 256 278 179 379
Sauna 183 222 184 355

Sud
1er Tri. 2e Tri. 3e Tri. 4e Tri.
Abonnement 356 365 265 512
Gym 321 402 302 413
Sauna 198 256 134 400
-Cliquez le menu Insertion Feuille

Creer un tableau croise dynamique

-Cliquez le menu Donnees Rapport de tableau croise dynamique
-Cliquez l'option Plages de feuilles de calcul avec etiquettes
-Cliquez Suivant >
-Cliquez l'option Plusieurs (creation manuel)
-Cliquez Suivant >
-Cliquez l'onglet Feuil1
-Selectionnez la plage A2:E5 puis cliquez Ajouter
-Selectionnez la plage A8:E11 puis cliquez Ajouter
-Selectionnez la plage A14:E17 puis cliquez Ajouter
-Cliquez dans la case d'option 1
-Cliquez Feuil1!$A$2:$E$5 dans la liste Toutes les plages, et tapez Nord dans la zone Champ1
-Cliquez Feuil1!$A$8:$E$11 dans la liste Toutes les plages, et tapez Ouest dans la zone Champ1
-Cliquez Feuil1!$A$14:$E$17 dans la liste Toutes les plages, et tapez Sud dans la zone Champ1
-Cliquez Suivant >
-Double-cliquez le bouton Page 1 et tapez Regions ↵ dans Nom
-Double-cliquez le bouton Colonne et tapez Trimestres ↵ dans Nom
-Double-cliquez le bouton Ligne et tapez Produits ↵ dans Nom
-Double-cliquez le bouton Somme Valeur et tapez C.A. (KF) ↵ dans Nom
-Cliquez Suivant >
-Cliquez le bouton Options
-Tapez TCD dans Nom
-Cliquez Mise en forme automatique pour oter la coche
-Cliquez OK puis cliquez Fin


Actualiser un tableau croise dynamique

Le chiffre d'affaires de toutes les regions pour le premier trimestre et pour les abonnements est de 944 KF.
-Cliquez l'onglet Feuil1
-Tapez 400 ↵ dans la cellule B3 (Nord, 1er trimestre, Abonnement)
-Cliquez l'onglet Feuil2
Excel ne met pas a jour le tableau automatiquement. Creons une procedure pour l'actualiser.
-Cliquez Bouton de commande dans la barre d'outils Commandes
-Cliquez et faites glisser en-dessous du tableau croise
-Au besoin, cliquez Proprietes dans la barre d'outils Commandes
-Tapez Mise a jour du tableau croise dynamique dans la propriete Caption
-WordWrap (propriete) : force le passage a la ligne quand le texte est trop long par rapport a la taille d'un controle
-Double-cliquez la propriete WordWrap pour la passer a True
-Double-cliquez le bouton Mise a jour...
Quand on utilise un bouton de commande, il faut selectionner une cellule pour deselectionner le bouton.
-Tapez Range("A1").Select ↵
L'objet PivotTable (tableau croise) est contenu dans un objet WorkSheet (feuille de calcul). C'est la methode RefreshTable qui met a jour les donnees. TCD est le nom donne au tableau lors de sa creation avec l'assistant.
-Tapez ActiveSheet.PivotTables("TCD").RefreshTable
-Cliquez Affichage Microsoft Excel dans la barre d'outils
-Cliquez Desactiver le mode creation dans la barre d'outils Commandes
-Cliquez le bouton Mise a jour...
Apres la mise a jour, la cellule B5 contient 976.

Modifier l'operation de synthese

Nous desirons passer rapidement a une synthese par Somme ou par Moyenne ou obtenir les valeurs Maximales ou Minimales.
-Cliquez la cellule B5 pour la selectionner
-Cliquez le menu Outils Macro Nouvelle macro
-Tapez Moyenne ↵ dans Nom de la macro
-Cliquez avec le bouton droit la cellule B5 puis cliquez Champ dans le menu contextuel
-Cliquez Moyenne dans la liste Synthese par
-Cliquez le bouton Nombre, cliquez Nombre dans la liste Categories puis tapez 0 dans la zone Nombre de decimales
-Cliquez OK pour fermer la boite Format de cellule puis sur OK pour fermer la boite Champ dynamique
-Cliquez Arreter l'enregistrement
-Refaites 3 fois les 7 dernieres actions en tapant Somme, Maxima et Minima dans Nom de la macro, et en choisissant Somme, Max et Min dans la liste Synthese par
-Creez 4 Boutons (barre d'outils Formulaires) attaches aux macros Somme, Moyenne, Maxima et Minima, et intitules Somme, Moyenne, Maxima et Minima
[Si vous desirez deplacer ou redimensionner les quatre boutons en meme temps, il faut les selectionner. Cliquez le bouton Selection qui se trouve dans la barre d'outils Dessin puis encadrez les boutons que vous desirez selectionner. Cliquez a nouveau sur Selection quand vous ne desirez plus faire de selection.]
-Testez les 4 boutons pour passer d'un mode de calcul a un autre
-Cliquez Enregistrer puis tapez Regions ↵ dans Nom du fichier


Modifier le mode de calcul

Nous desirons comparer le resultat des destinations entre elles.
-Cliquez Visual Basic Editor dans la barre d'outils Visual Basic
-Double-cliquez Module1 dans la fenetre Projet
-Tapez Ctrl Fin pour vous deplacer a la fin du module
-Tapez Sub Abonnement ↵
Pour comparer des valeurs il faut modifier le mode de calcul applique au champ des valeurs.
-PivotField (objet) : champ dynamique d'un tableau croise (PivotTable)
-Tapez With ActiveSheet.PivotTables("TCD").PivotFields("C.A. (KF)") ↵
[Le nom C.A. (KF) doit etre en tout point identique au nom qui apparait dans la cellule A3 de la feuille Feuil2.]
Modifions le type de calcul (difference en pourcentage entre les champs).
-Tapez .Calculation = xlPercentDifferenceFrom ↵
La comparaison s'effectue ici sur les Produits.
-Tapez .BaseField = "Produits" ↵
Comparons les abonnements avec les autres produits.
-Tapez .BaseItem = "Abonnement" ↵
-Tapez End With ↵ pour fermer l'instruction With
Le principe est le meme pour les autres Produits.
-Recopiez l'integralite de la procedure Abonnement a la fin du module (faites des Copier/Coller)
-Remplacez Sub Abonnement() par Sub Gym()
-Remplacez .BaseItem = "Abonnement" par .BaseItem = "Gym"
-Faites la meme chose pour Sauna
Il nous faut une procedure pour revenir en mode normal.
-A la fin du module, tapez Sub normal ↵
-Tapez ActiveSheet.PivotTables("TCD").PivotFields("C.A. (KF)").Calculation = xlNormal ↵
Lesactions sur les Produits peuvent s'appliquer aux Trimestres
-Recopiez la procedure Abonnement a la fin du module
-Remplacez Sub Abonnement() par Sub PremierTrimestre()
-Remplacez "Produits" par "Trimestres"
-Remplacez "Abonnement" par "1er tri."
-De meme, creez les autres procedures
[Les noms des champs utilises dans les procedures doivent etre identiques a ceux utilises dans le tableau croise. Si ce n'est pas le cas, Excel ne retrouvera pas les donnees.]
-Cliquez x pour fermer la fenetre Microsoft Visual Basic

Modifier un tableau croise dynamique

-Ajoutez 8 boutons (barre d'outils Formulaires) attaches aux macros Normal, Abonnement, Gym, Sauna, PremierTrimestre, DeuxiemeTrimestre, TroisiemeTrimestre et QuatriemeTrimestre
-Changez les intitules comme dans l'exemple ci-dessous
Normal, Abonnement, Gym, Sauna, 1er trimestre, 2eme trimestre, 3eme trimestre, 4eme trimestre.
-Testez les 13 boutons
-Renommez Feuil2 en TCD Regions
-Renommez Feuil1 en Regions
-Enregistrez et fermez le classeur.