PRO_init_menu(pMenu,PmenuC est chaîne ,pTableau est une chaîne)
i est entier
Xlt_menu est chaîne // nom menu mère
Xlt_menu = ExtraitChaîne(PmenuC,1,".")
FOR i=1 TO Dimension({pTableau,indVariable})/2
{PmenuC,indChamp}..Libellé = {pTableau,indVariable}[i,2]
{PmenuC,indChamp}..Message = {pTableau,indVariable}[i,1]
MenuAjoute(pMenu,{Xlt_menu,indChamp},-1)
END
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=6014&post_id=24233