Corrigé 21.4 Créer un tableau croisé dynamique
' On décide de mettre un seul TCD sur la feuille
Sub EffaceTCD()
Worksheets("Analyse").Cells.Clear
End Sub
--------------------------------------------------------------
' Création du TCD
Sub CreeTCD()
Dim intChoix As Integer
intChoix = MsgBox("Attention !!! Si le TCD existe déjà," _
& " il sera supprimé" & vbCrLf & _
"Voulez-vous... Pour consulter la suite, découvrez le livre suivant :
En version papier
En version numérique
En illimité avec l'abonnement ENI
Sur la boutique officielle ENI
Conditions générales d'utilisationCopyright - © Editions ENI ||Politique de protection des données du groupe ENI