XL 2013 Structures conditionnelles If Isempty et ElseIf Isempty VBA Textbox

Bonjour à tous,

Je souhaiterais à travers un Userform pourvoir résoudre les deux cas de remplissage ci-dessous. Les deux cas de remplissage doivent être possibles à la saisie.

1er cas : Les textbox NbMois et QtéTotal sont calculés.


2ème cas : Le textbox QtéTotal est calculé et le textbox NbMois est = à 1 si Début / fin non remplis.


Voici l'extrait du code VBA élaboré :
Private Sub Fin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsEmpty(Me.Début.Value) = False Then
Me.Nbmois.Value = "1"
ElseIf IsEmpty(Me.Début.Value) = True Then
Me.Nbmois.Value = DateDiff("m", DateValue(Me.Début.Value), Me.Fin.Value) + 1
End If
End Sub

Private Sub Qtétotale_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.Qtétotale.Value = (Me.Qté.Value * Me.Nbmois.Value) * 1
End Sub

Merci d'avance pour votre aide.

Cordialement,
TEM