Private Sub EnregistrerUneDepense_Click()
' Code d'enregistrement
Dim AncienneValeur
Dim CelluleARenseigner As String
Dim NouvelleDepense As String
Dim NouvelleValeur As Double
If Not IsNumeric(Right(TextBoxMontant, 1)) And Right(TextBoxMontant, 1) <> "," Then
MsgBox "Veuillez saisir une valeur de dépense"
TextBoxMontant.SetFocus
Else
' Les étapes:
' 1. Selectionner les frais déjà enregistrés
AncienneValeur = ActiveCell.Value
' 2. Remplace le "." en "," si besoin
If InStr(1, TextBoxMontant, ".") > 0 Then
TextBoxMontant.Value = CDbl(Val(TextBoxMontant))
End If
' 3. Ajouter le montant
NouvelleValeur = TextBoxMontant.Value + AncienneValeur
' 4. Fermer la UserForm et valider
ActiveCell.Value = NouvelleValeur
Unload Me
End If
End Sub
' Fonction pour valider par le bouton "Entrée"
Private Sub EnregistrerUneDepense_Enter()
If TextBoxMontant <> "" Then
EnregistrerUneDepense_Click
End If
End Sub