Dateadd

[bartelele]

Bonjour à tous et bonne année 🙂

J'ai un petit problème pour commencer l'année.

Dans un userform j'ai un combobox avec comme choix (24mois, 12mois, 6mois)
Dans un textbox (TB_Derniere_visite)j'ai une date.
Je souhaiterais lorsque je sélectionne par exemple 24 dans mon combobox (évènement change) le TB_Date_prochaine_visite soit égal au TB_Derniere_visite + 2ans.

Du coup j'ai voulu utiliser la fonction dateadd, mais je n'y arrive pas... 🙁


If Me.CB_Frequence = "24 mois" Then
DateAdd("yyyy", 2, TB_Derniere_visite.Value) = TB_Date_prochaine_visite.Value
End If
If Me.CB_Frequence = "12 mois" Then
DateAdd("yyyy", 1, Me.TB_Derniere_visite.Value) = Me.TB_Date_prochaine_visite.Value
End If

If Me.CB_Frequence = "6 mois" Then
DateAdd("m", 6, Me.TB_Derniere_visite.Value) = Me.TB_Date_prochaine_visite.Value
End If

Merci de voter aide

 

[Pierrot93]

Re : Dateadd

Bonjour,

essaye peut être ainsi, non testé... :
TB_Date_prochaine_visite.Value = DateAdd("yyyy", 2, CDate(TB_Derniere_visite.Valueà))
Bonne journée
@+

 

[bartelele]

Re : Dateadd

arf bien vu! j'étais pas loin mais je suis pas encore assez bon 😛

merci à toi et bonne année 🙂