[RESOLU] Mise à jour de l'année de la date dans une variable

[little]

Tout d'abord bonjour à tous,

Je sais pas si mon intitulé est correct mais je vais vous exposer mon problème.

J'ai crée une variable DateAUJ qui prend pour valeur la date du jour.
Ensuite j'ai crée 4 variable T1, T2, T3, T4 qui corresponde au 4 trimestre de l'année et qui ont pour valeur la date du premier jour de chaque trimestre. Pour le moment les valeurs de ces variable sont défini manuellement.
T1 = 01/01/2012
T2 = 01/04/2012
T3 = 01/07/2012
T4 = 01/10/2012

Je voudrais savoir si il est possible de mettre l'année de ces variable à jour automatiquement, que lorsque l'on passe en 2013 T1 devienne 01/01/2013

Je vous remercie par avance

Little

 

[PascalXLD]

Re : Mise à jour de l'année de la date dans une variable

Bonjour

Tu peux essayer

T1 = DateSerial(Year(Date), 1, 1)
T2 = DateSerial(Year(Date), 4, 1)
T3 = DateSerial(Year(Date), 7, 1)
T4 = DateSerial(Year(Date), 10, 1)

 

[JCGL]

Re : Mise à jour de l'année de la date dans une variable

Bonjour à tous,
Salut Pascal,

Peux-tu essayer :

T1 = DateSerial(Year(Date), 1, 1)
T2 = DateSerial(Year(Date), 4, 1)
T3 = DateSerial(Year(Date), 7, 1)
T4 = DateSerial(Year(Date), 10, 1)

A + à tous

Edition : Pour info : Quand j'ai déposé nous n'avions pas la même proposition Pascal et moi

 

[little]

Re : Mise à jour de l'année de la date dans une variable

Un grand merci à vous deux cela fonctionne parfaitement 😉

 

[PascalXLD]

Re : Mise à jour de l'année de la date dans une variable

Edition : Pour info : Quand j'ai déposé nous n'avions pas la même proposition Pascal et moi

Re

Oui en postant je me suis aperçu de mon code complexe 😱 et je me suis rappelé le DateSerial
J'ai du éditer pendant que tu écrivais ton post vu que j'ai édité juste avant que tu ne postes.
Bonne soirée

 

[job75]

Re : [RESOLU] Mise à jour de l'année de la date dans une variable

Bonsoir little, Pascal, Jean-Claude 🙂

On peut aussi écrire :

Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = "1/1/" & Year(Date)
T2 = "1/4/" & Year(Date)
T3 = "1/7/" & Year(Date)
T4 = "1/10/" & Year(Date)

Avec les variables déclarées As Date, VBA convertit les textes en dates.

A+

 

[job75]

Re : [RESOLU] Mise à jour de l'année de la date dans une variable

Re,

On peut même ne pas écrire le jour, VBA prend le 1er du mois :

Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = "1/" & Year(Date)
T2 = "4/" & Year(Date)
T3 = "7/" & Year(Date)
T4 = "10/" & Year(Date)

A+

 

[job75]

Re : [RESOLU] Mise à jour de l'année de la date dans une variable

Bonjour le fil, le forum,

J'oubliais tout simplement :

Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = "1/1"
T2 = "1/4"
T3 = "1/7"
T4 = "1/10"

Et si l'on ne veut pas déclarer les variables :

T1 = CDate("1/1")
T2 = CDate("1/4")
T3 = CDate("1/7")
T4 = CDate("1/10")

A+