ho riscritto ma comunque mi da lo stesso errore. Qlc mi può aiutare
codice:Dim m As model Dim themod As Module Dim i As Long set m = model i = m.Modules.Find(smFindTag, "object.779") Set themod = m.Modules(i) themod.Data("Value(1)") = "NORM(4.35,1.838)"