Graphique avec colorisation de certaines barres

Sub Main
  GlobalScope.BasicLibraries.loadLibrary ("zBasic")
  sGraph = zGraph.Demarre("Test", "Feuille1", "A1:B8")
  zGraph.Modele(sGraph, "Colonne", "Normal")	
  zGraph.Propriete(sGraph, "Légende", "non")
  zGraph.Propriete(sGraph, "Largeur", 10000)
  zGraph.Propriete(sGraph, "Hauteur", 5000)
  zGraph.Colorise(sGraph, 3, "Vert")
  zGraph.Colorise(sGraph, 7, "Vert")
  zGraph.Colorise(sGraph, 6, "Rouge")
  zGraph.Termine(sGraph, "", "A10")
End Sub