Alimenter une zone de liste dans un dialogue et récupérer l'item

• Le dialogue doit comporter une zone de liste nommée ListBox1
• Une plage de cellules servira au contenu de la liste à afficher

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

	maPlage = zPlage.VersTable("A2:A7", "Feuille2")
	maListe = zTable.VersListe(maPlage)
	
	oDlg = zDial.Charge("Dialog1")
	oListe = zDial.Liste(oDlg, "ListBox1")
	zCtrl.Parametre(oListe, "InsertListe", maListe)
	zCtrl.Parametre(oListe, "SelectListe", 1) 
	oRetour = zDial.Lance(oDlg)

	if oRetour.Tag = 0 then exit sub
	oListe = zDial.Liste(oRetour, "ListBox1")
	sItem = zCtrl.Propriete(oListe, "SelectionItemListe")
	zCellule.Ecrit("Feuille2", "B9", "C", sItem)

End sub