PROCEDURE def_param( NomFichier est une chaîne = "Donnee")
sRubCléParcours est une chaîne
// On active le filtre
sRubCléParcours = HFiltre(NomFichier, "Nom]'"+valNom+"'"...
+" ET Classes]'"+ValClasse+"'"...
+" ET Date]'"+ValDate+"'"...
+" ET Difficultes]'"+ValDifficultes+"'"...
+" ET Pai]'"+ValPai+"'"...
+" ET Suites]'"+ValSuites+"'"...
+" ET Suivi]'"+ValSuivi+"'")
// on efface la table
TableSupprime(Table_recherche)
// Parcours des enregistrements filtrés
HLitPremier(NomFichier, sRubCléParcours)
// Si l'enregistrement n'existe pas
SI HEnDehors() ALORS
Info("Aucun enregistrement ne correspond à votre sélection.") // Méssage
SINON
//remplir la table
TableAjoute(Table_recherche)
HLitSuivant(NomFichier, sRubCléParcours)
FIN
// On désactive le filtre
HDésactiveFiltre(NomFichier)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5258&post_id=21757