XL 2016 Ajouter "x" mois à une date

[KTM]

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

 

[Paf]

Bonjour,

Si le souci ( non précisé!!) est sur le changement d'année qui ne s'effectue pas:
Rajouter le code

TextBox1.Value = Format(TextBox1, "mmm-yy")

en fin de Private Sub ComboBox2_Change()

et supprimer la totalité de Private Sub TextBox1_Change()

A+

 

[KTM]

C'est cela Merci Beaucoup

 

[ChTi160]

Bonsoir KTM
Bonsoir le Fil ,le Forum
ou un truc du genre
mais y a un probleme
lorsque tu mets :
Cdate（ComboBox5）avec pour donnee un format ” mmm-yy”
ca risque de
pas le faire

Private Sub ComboBox2_Change[B](）[/B]
Dim Dte as date
Dim StrSearch as String
With me
Str_Search=.ComboBox2
Dte=.ComboBox5
       .TextBox1.Text =IIf（Str_Search=“S3”， DateAdd("m", 2, Dte), _
IIf （Str_Search="S6" ， DateAdd("m", 5, Dte), _
DateAdd("m", 1, Dte)）
End With
End Sub

jean marie
depuis mon telephone non teste Lol