// Déclarations
leIndice est un entier
// Zone mémoire
MemCrée("MemTemp")
// Mémorisation des sélections
POUR leIndice=1 A TableSelectOccurrence(psTable)
MemAjoute("MemTemp",MemOccurrence("MemTemp")+1,TableSelect(psTable,leIndice))
FIN
// Déselection
TableSelectMoins(psTable)
// Inversion de la sélection
POUR leIndice=1 A TableOccurrence(psTable)
SI MemRecherche("MemTemp",leIndice,Faux)=-1 ALORS
TableSelectPlus(psTable,leIndice)
FIN
FIN
// Fin
MemSupprimeTout("MemTemp")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3927&post_id=16484