KTM
XLDnaute Impliqué
Salut famille Forum
J'ai un ptit soucis de formule dans mon Usf
-J'ai ma combobox5 dans laquelle je choisis mon mois
-Dans ma Combobox2 je choisis un Statut ( S3 si Echeance dans 3 Mois ; S6 pour 6 Mois ;Non pour 2 Mois)
-Ma textbox1 doit me calculer la date de l'Échéance ( Ici est mon soucis)
Voici les codes Utilisés:
Private Sub ComboBox2_Change()
If Me.ComboBox2 = "S3" Then
TextBox1.Text = DateAdd("m", 2, CDate(Me.ComboBox5.Text))
ElseIf Me.ComboBox2 = "S6" Then
TextBox1.Text = DateAdd("m", 5, CDate(Me.ComboBox5.Text))
Else
TextBox1.Text = DateAdd("m", 1, CDate(Me.ComboBox5.Text))
End If
End Sub
Private Sub ComboBox5_Change()
ComboBox5 = Format(ComboBox5, "mmm-yy")
End Sub
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "mmm-yy")
End Sub
J'ai un ptit soucis de formule dans mon Usf
-J'ai ma combobox5 dans laquelle je choisis mon mois
-Dans ma Combobox2 je choisis un Statut ( S3 si Echeance dans 3 Mois ; S6 pour 6 Mois ;Non pour 2 Mois)
-Ma textbox1 doit me calculer la date de l'Échéance ( Ici est mon soucis)
Voici les codes Utilisés:
Private Sub ComboBox2_Change()
If Me.ComboBox2 = "S3" Then
TextBox1.Text = DateAdd("m", 2, CDate(Me.ComboBox5.Text))
ElseIf Me.ComboBox2 = "S6" Then
TextBox1.Text = DateAdd("m", 5, CDate(Me.ComboBox5.Text))
Else
TextBox1.Text = DateAdd("m", 1, CDate(Me.ComboBox5.Text))
End If
End Sub
Private Sub ComboBox5_Change()
ComboBox5 = Format(ComboBox5, "mmm-yy")
End Sub
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "mmm-yy")
End Sub