Créer un dialogue pour afficher le contenu d'une plage

Sub Main
GlobalScope.BasicLibraries.loadLibrary ("zBasic")

	oTablo = zPlage.VersTable ( "A1:D7", "Feuille4" )
	oDlg = zDial.Cree("Affiche table", 0, 0, 200, 150)
	oCtrl = zCtrl.Cree(oDlg, "Contrôle de table", 10, 10, 180, 120)
	zCtrl.Parametre(oCtrl, "SelectionModele", 1)
	zCtrl.Ajoute(oDlg, oCtrl, "Tablo")
	nCol = UBound(oTablo(0))
	for i = 0 to nCol
		zCtrl.TableTete(oCtrl,oTablo(0)(i))
	next
	for i = 1 to UBound(oTablo)
		zCtrl.TableAjout(oCtrl, i-1, oTablo(i))
	next
	oRetour = zDial.Lance(oDlg)	
End Sub