//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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1429&post_id=5861