// Proc locale
Procédure TableSync(pcNomTable)
// récupère le n° de la table courante pour ne pas la traiter
iTab est un entier = val(Droite(pcNomTable,1))
// en récupère la position
iPos est un entier = tableselect(pcNomTable)
// pas de ligne sélectionnée : pas de synchro
si iPos=-1 alors retour
i est un entier
POUR i=1 A 5
SI i<>iTab alors
TableSelectPlus("Table"+i,iPos)
TableAffiche("Table"+i,TaCourantBandeau)
Fin
Fin
TableSync(moimême..nom)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=866&post_id=3541