Res est un entier
sValeurSaisie est une chaine
sValeurSaisie = <Nom De La Combo>..ValeurAffichée
Res = ListeCherche(<Nom de la Combo>,<Valeur Recherche>,Vrai)
//Vrai pour une recherche à l'identique
Si Res = -1 Alors //L'élément n'existe pas dans la Combo
<Nom du fichier>.<Rubrique> = sValeurSaisie
Si Pas HAjoute(<No du Fichier>) Alors
Erreur(HErreurInfo())
Retour
Fin
Fin
//Ici on réactualise la la Combo
<Nom de la Combo>..FichierParcouru = "<Nom de la requete>"
//On se repositionne sur l'élément ajouté
Res = ListeCherche(<Nom de la Combo>,<Valeur Recherche>,Vrai)
listeSelectPlus(<Nom de la Combo>,Res)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4509&post_id=18722