//A chaque modification du champs
nPos1 est un entier
nPos2 est un entier
NewValeur est une chaîne
bTrouve est un booléen

SI HLitRecherche(Fichier,Rubrique,MoiMême) ALORS
	bTrouve = Vrai
	TableAffiche(Table,taCourantPremier)	
FIN

nPos1 = 1
nPos2 = MoiMême..Curseur


SI HTrouve(Fichier) ALORS
	NewValeur = MoiMême[[ nPos1 A ]]
	MoiMême = NewValeur + SansEspace(Fichier.Rubrique[[nPos2 A ]])
	MoiMême..Curseur = nPos2
	MoiMême..FinCurseur = Taille(MoiMême)+1
FIN

//Touche enfoncé (WM_KEYDOWN) de votre champs
SI _EVE.wParam = 8 ALORS
	SI MoiMême..Curseur>1 ALORS
		MoiMême = MoiMême[[1 A (MoiMême..Curseur-1)]]
		MoiMême..FinCurseur = Taille(MoiMême+1)
		MoiMême..Curseur = MoiMême..FinCurseur
		ExécuteTraitement(txtRech,trtFinModification)		
	FIN
FIN