IF lDelete this.lblMsg.Caption = "Suppression du jeu de fiches précédent." SELECT v_BatchRel28110 Delete ALL lnNext = GETNEXTMODIFIED(0) i = 0 lnStep = MAX(INT( lnMax / 100), 1) BEGIN TRANSACTION DO WHILE lnNext # 0 GO (lnNext) IF ! TABLEUPDATE() llToast = .T. EXIT ENDIF IF MOD ( i , lnStep) = 0 this.cProgressMeter1.RefreshDisplay(i, lnMax) ENDIF lnNext = GETNEXTMODIFIED(lnNext) i = i + 1 ENDDO this.cProgressMeter1.Reset() IF llToast ROLLBACK TABLEREVERT(.T.) ErrorMsg(this.cMsgUpdateFailed) RETURN .F. ELSE END TRANSACTION ENDIF ENDIFJosé