Tableau croisé dynamique simple

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	oTCD = zTCD.Demarre("Essai", "Feuille1", "A1:C11")
	zTCD.Parametre(oTCD, "Bouton_filtre", 0)
	zTCD.Parametre(oTCD, "rappel_éléments", 0)
	
	zTCD.Champ(oTCD, "ligne", 2)
	zTCD.Champ(oTCD, "colonne", 1)
	zTCD.Champ(oTCD, "donnée", 3)
	zTCD.Execute(oTCD, "Feuille1", "A14")
End Sub