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

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Septembre 2012

• #2

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)

 

Dernière édition: 6 Septembre 2012

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Septembre 2012

• #3

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

Bonjour à tous,
Salut Pascal,

Peux-tu essayer :

VB:

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

 

Dernière édition: 6 Septembre 2012

Vote positif 0 Vote négatif

L

little

XLDnaute Nouveau

• 6 Septembre 2012

• #4

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

Un grand merci à vous deux cela fonctionne parfaitement

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Septembre 2012

• #5

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

JCGL à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2012

• #6

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

Bonsoir little, Pascal, Jean-Claude

On peut aussi écrire :

Code:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2012

• #7

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 :

Code:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Septembre 2012

• #8

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

Bonjour le fil, le forum,

J'oubliais tout simplement :

Code:

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif