par polbusse » 16 Jan 2004 à 15:53
il faut créer une fonction qui doit ressembler a ca : j'ai pas testé..function removeNthItem(item as NotesItem,n as integer) As NOtesItemdim cpt as integerDim v as variantDim newItem as NoteItemset newItem = newNotesItem(...)cpt=0v=item.values(0)While not (v is nothing) if cpt<>n-1 Then newitem.appendToTextList(v) cpt=cpt+1 v=item.values(cpt)wend set removeNthItem=newItemend function