Private Sub ToggleAffiche_Ferme_Click()
If ToggleAffiche_Ferme = True Then
ToggleAffiche_Ferme.Caption = "Enregistrer Saisie"
ToggleAffiche_Ferme.BackColor = IIf(ToggleAffiche_Ferme = True, vbRed, vbGreen)
Label18.Visible = False
Exit Sub
End If
Dim Derlgn As Integer
With Sheets("INTERVENTIONS")
Derlgn = .Range("A65536").End(xlUp).Row + 1
'.Cells(Derlgn, 1) = Derlgn '- ta ligne de départ pour
.Cells(Derlgn, 1) = Pointer.Value
.Cells(Derlgn, 2) = NomCompte.Value
'.Cells(Derlgn, 3) = La_Date.Value
.Cells(Derlgn, 3) = La_Date
.Cells(Derlgn, 4) = NomBanque.Value '
.Cells(Derlgn, 5) = TypeOpération.Value
.Cells(Derlgn, 6) = Libelle.Value
If Debit <> "" Then .Cells(Derlgn, 7) = CDbl(Debit) '.Value
If Credit <> "" Then .Cells(Derlgn, 8) = CDbl(Credit) '.Value
Calcul Derlgn
.Cells(Derlgn, 10) = CbxN°Chèque.Value
End With