// ---------------------------------------------------------------------------------------
//	PROCEDURE DE RECHERCHE DANS UN TABLEAU (EN GARDANT UNIQUEMENT LES ELEMENTS RECHERCHE)
// ---------------------------------------------------------------------------------------
//  TableTaches.Taches  <--- TableTaches est le nom de votre table , Taches est le nom de la colonne
//  TxtRecherche  <------ Champs texte qui contient le mot recherché


Pos est un entier
i est un entier
NumCherche est un entier
SupprIndice est un entier
TabRecherche est un tableau de 1000 entier
TableOccu est un entier

//MISE A JOUR DE VOTRE TABLE (DANS LAQUEL VOUS FEREZ LA RECHERCHE)
MajTableTaches


//RECHERCHE DANS LA TABLE DES LIGNES A SUPPRIMER
NumCherche=0
POUR i = 1 A TableTaches..Occurrence
	Pos =Position(Majuscule(TableTaches.Taches[i]),Majuscule(TxtRecherche))
	SI Pos> 0 ALORS
		NumCherche++
		TabRecherche[NumCherche]=i
	FIN
FIN
TableOccu=TableTaches..Occurrence
SupprIndice=0
NumCherche=0

//SUPPRESSION DES LIGNES QUI NE VOUS INTERESSE PAS 
POUR i=1 A TableOccu
	SI i<>(TabRecherche[SupprIndice+1]) ALORS
		TableSupprime(TableTaches,i-NumCherche)
		NumCherche++
	SINON
		SupprIndice++
	FIN
FIN