Ouvrir un dialogue et écrire dans une cellule le contenu saisi d'une zone de texte
De zBasic
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