//Code de déclaration de la fenêtre
GLOBAL
Ind est un entier

//Dans le Code Sélection d'une ligne de lst
Ind = ListeSelect("lst")  //Récupère l'indice 

//Pour ajouter
Si SansEspace(txt)<>"" alors
 RAZ(Fichier1)
 Fichier1.Libelle = txt
 Si Pas HAjoute(Fichier) Alors
  Erreur("Impossible d'ajouter l'élément",HErreurInfo(),ErreurInfo())
 Retour
 Fin
 ListAjoute(lst,txt)
 lst..Triée = vrai
Fin

//Pour modifier
Si ind = -1 Alors
 Erreur("Vous devez s'électionnez l'élément à modifier")
 Retour
Fin

sValueOld est une chaine = lst[ind]

Si SansEspace(txt) <> "" Alors
 Si pas HLitRecherche(Fichier1,Libelle,sValueOld,hIdentique) alors
  Erreur(sValueOld + " A été supprimée!")
  Retour 
 Fin
 Fichier1.Libelle=txt
 Si Pas HModifie(Fichier1) Alors
  Erreur("Impossible de modifier l'élément sélectionné",HErreurInfo(),ErreurInfo())
  Retour
 Fin
 Lst[Ind] = txt
 lst..triée = vrai
Fin

//Suppression
Si ind = -1 Alors
 Erreur("Vous devez s'électionnez l'élément à supprimer")
 Retour
Fin

sValueOld est une chaine = lst[ind]

Si SansEspace(txt) <> "" Alors
 Si pas HLitRecherche(Fichier1,Libelle,sValueOld,hIdentique) alors
  Erreur(sValueOld + " A déjà été supprimée!")
  Retour 
 Fin
 Si Pas HSupprime(Fichier1) Alors
  Erreur("Impossible de supprimer l'élément sélectionné",HErreurInfo(),ErreurInfo())
  Retour
 Fin
 ListeSupprime(Lst,Ind)
 lst..triée = vrai
Fin