// Entrée en saisie d'une ligne de la table
// Ligne paire ?
nInd est un entier = TableSelect(MoiMême)
SI modulo(nInd,2)=1 ALORS
// Pas en fin de table ?
SI nInd <TableOccurrence(MoiMême) ALORS
TableSelectPlus(MoiMême,nInd+1) // Passe à la ligne suivante
SINON
TableSelectPlus(MoiMême,nInd-1) // Passe à la ligne suivante
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4834&post_id=20123