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
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