ouvre({NomDeMaFenetre})
OuvreAffecteCombo("F2", "C1","I1")
PROCEDURE OuvreAffecteCombo(NomFenetre, NomCombo, NomCle sont des chaînes)
SI Ouvre({NomFenetre,indFenetre}) ALORS
resultat est un entier = ListeCherche({NomCombo},{NomCle})
ListeSelectPlus({NomCombo},resultat)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=1953&post_id=8167