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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas