***** Déclarations globales de la fenêtre 
//Evenement pour détecter le clic sur en-tête de colonne 
gf_eEvClicTable est un entier 
//Pour le tri multiple 
g_bTriMulti est un booléen 


***** Initialisation de la fenêtre 
sNomTable est une chaine = "MaTable" 
gf_eEvClicTable=Evénement("pl_­ClicEnTeteTable", sNomTable, 1529) 


***** Fermeture de la fenêtre 
SI gf_eEvClicTable<>0 ALORS FinEvénement(gf_eEvClicTable) 


***** Procédure locale pl_ClicEnTeteTable 
PROCEDURE pl_ClicEnTeteTable(sMess, wParam, lParam) 


sNomTable est une chaîne = "MaTable" 
sNomColonne est une chaîne = "MaColonneATrier" 
eRes est un entier = CurseurPos(cpClient) 
eX est un entier 
eX = PoidsFaible(eRes)-{sNomTable,i­ndChamp}..X 


sNomColCliquée est une chaîne 
sNomColCliquée =TableEnumèreColonne(sNomTable­,wParam) 
// La colonne correspond-elle à celle à trier ? 
SI sNomColCliquée=sNomColonne ALORS 
        //On ne prend pas en compte le clic si la loupe est présente 
        //(à environ 10 pixels) 
        SI eX < {sNomTable+"."+sNomColonne,ind­Champ}..Largeur-10 ALORS 
                si gf_bTriMulti alors 
                        TableTrie(sNomTable,"+COL1","+­COL2") 
                sinon 
                        TableTrie(sNomTable,"-COL1","-­COL2") 
                FIN 
                gf_bTriMulti = PAS gf_bTriMulti 
                // Le renvoyer 0 permet d'annuler 
                // le tri sur la colonne seule 
                RENVOYER 0 
        FIN 
FIN