XL 2013 Structures conditionnelles If Isempty et ElseIf Isempty VBA Textbox

TEM

XLDnaute Nouveau
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.
1568730049193.png

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

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
 

Discussions similaires


Haut Bas