Combobox pour ajout durée à une date

[Skud]

[Résolu] Combobox pour ajout durée à une date

Bonjour à tous, ou plutôt bonsoir !

Je suis sur un projet de base de données et pour l'instant je n'en suis qu'au tout début.
J'ai trouvé pas mal de solution sur le forum , mais là je bloque depuis plusieurs jours sur un problème de calcul de date.

En fait j'aimerais à partir d'un choix dans une combobox pouvoir ajouter 1 ou 2 ans à une date qui se trouve dans une textbox.

Avec le fichier cela sera plus clair !

Après avoir ajouter la date dans la texbox 3, je choisis dans la combobox 4 la durée de validité (1 ou 2 ans) et le résultat se place dans la textbox 4 pour vérification.

Merci de votre aide ;-)

 

[lacorse33]

Re : Combobox pour ajout durée à une date

Bonsoir Skud,

Tu trouveras la solution dans le fichier :

Sub Calcul()
UserForm1.TextBox4 = Format(DateAdd("yyyy", UserForm1.ComboBox4.Value, UserForm1.TextBox3.Value), "dd/mm/yyyy")
End Sub​

@+
Béa

 

[dg62]

Re : Combobox pour ajout durée à une date

Bonsoir Skud, Lacorse33, le forum


Une autre solution :

TextBox4.Value = Day(Calendar1.Value) & "/" & Month(Calendar1.Value) & "/" & (Year(Calendar1.Value) + combobox4.value)

 

[Skud]

Re : Combobox pour ajout durée à une date

Merci beaucoup "dg62" et "lacorse33".

J'ai vraiment beaucoup à apprendre pour la manipulation des dates !