Exemple d’application

1. Présentation

L’exemple suivant permet de générer automatiquement des tableaux et graphiques statistiques sur la répartition du temps de travail des salariés par jour, semaine, activité...

Les données source sont situées dans le tableau de cellules nommé "TableauTemps" présenté ci-après.

Extrait des données source

Exemple de tableau croisé et graphique généré

2. Code VBA de l’exemple

La procédure Genere_Stat permet de générer l’ensemble des tableaux et graphiques. Elle fait appel à la procédure Creation_TCD pour la création des tableaux croisés dynamiques.

Option Explicit 
Dim oWbk As Workbook 
_____________________________________________________________ 
Sub Genere_Stat() 
Dim oSheet As Worksheet 
Dim oShape As Shape 
Dim oChart As Chart 
Dim iNbVision As Integer 
Dim iNbAct As Integer 
Dim i As Integer 
Dim j As Integer 
Dim k As Integer 
 
' Supprime les feuilles existantes 
Set oWbk = ThisWorkbook 
Application.DisplayAlerts = False 
For i = oWbk.Sheets.Count To 2 Step -1 
   oWbk.Sheets(i).Delete 
Next 
Application.DisplayAlerts = True 
 
' Ajoute les nouvelles feuilles 
For i = oWbk.Sheets.Count + 1 To 5 
   oWbk.Sheets.Add after:=oWbk.Sheets(oWbk.Sheets.Count) 
Next ...