i est un entier
// on ajoute une référence achat à la ligne de commande sélectionnée
POUR i=1 A TableSelectOccurrence(TABLE_mémoire)
 TableSelectPlus(TABLE_mémoire, i)
 HLitRecherche(Fichier,IDFichier,COL_IDFichier[i])
 SI HTrouve(Fichier) ALORS
  Fichier.interrupteur = Vrai
  Fichier.valeursaisie = sai_saisie..ValeurAffichée
  

  //HModifie(Fichier,IDFichier)
  //Vous demander à modifier toujours le meme enregistrement - ERREUR
  //Il faut tout simplement mettre
  HModidie(Fichier)

  //Ici il manque un FIN
  FIN
FIN