Private Sub CmdModifier_Click()
Application.EnableEvents = False
Dim cel As Range
' on enlève la protection de la feuille
ActiveSheet.Unprotect
'--- Transfert Formulaire dans Feuille active
With ActiveSheet
Set cel = Range("D" & ligne) 'ici on trouve la bonne ligne du tableau
If Not cel Is Nothing Then
cel.Offset(0, -2) = Format(TxtJours, "00")
cel.Offset(0, -1) = TxtCatégorie
cel.Offset(0, 0) = TxtEtablissement
cel.Offset(0, 1) = TxtQuiQuoi
cel.Offset(0, 2) = TxtType
cel.Offset(0, 3) = Format(TxtNChèque, "0")
cel.Offset(0, 4) = Format(TxtCrédit, "0.00")
cel.Offset(0, 5) = Format(TxtDébit, "0.00")
End If
End With
Application.EnableEvents = True
RAZ
End Sub