XL 2016 Ajouter "x" mois à une date

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
 

Pièces jointes

  • Classeur1.xlsm
    19.1 KB · Affichages: 10

Paf

XLDnaute Barbatruc
Bonjour,

Si le souci ( non précisé!!) est sur le changement d'année qui ne s'effectue pas:
Rajouter le code
VB:
TextBox1.Value = Format(TextBox1, "mmm-yy")
en fin de Private Sub ComboBox2_Change()

et supprimer la totalité de Private Sub TextBox1_Change()

A+
 

ChTi160

XLDnaute Barbatruc
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
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla