Ouvrir un dialogue et écrire dans une cellule le contenu saisi d'une zone de texte

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

	oDlg = zDial.Charge("Dialog1")
	oRetour = zDial.Lance(oDlg)
	'Si le dialogue a été annulé, on sort de la routine
	if oRetour.Tag = 0 then exit Sub
	'C'est validé alors on continue
	oCtrl = zDial.Liste(oRetour, "TextField1")
	sValeur = zCtrl.Propriete(oCtrl, "Valeur")
	zCellule.Ecrit("Feuille1", "B10", "C", sValeur)
End Sub