PROCEDURE OuvreAffecteCombo(pcNomFenetre, NomCombo, NomCle sont des chaînes)
// on enlève simplement l'indirection !
SI Ouvre(pcNomFenetre) ALORS
resultat est un entier = ListeCherche({NomCombo},{NomCle})
ListeSelectPlus({NomCombo},resultat)
FIN
OuvreAffecteCombo("F2", "C1","I1")
//ou
OuvreAffecteCombo(F2..nom, "C1","I1")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=1953&post_id=8257