incrementer par toupie

tany · 23 Janvier 2016

Bonjour,
je ne trouve pas dans la recherche mais peut être mal chercher !
dans un userform j'ai un textbox avec date et une toupie associée
comment incrémenter ou décrémenter de 1 année ?
je le fais habituellement mais par jour soit :
date.text=cdate(date.text) + 1
mais pour un an ?
Merci d'avance

Dranreb · 23 Janvier 2016

Re : incrementer par toupie

Bonjour.
Décomposez pour ne pas convertir 3 fois la TextBox.Text en date :

VB:

Dim DatTrv As Date
DatTrv = CDate(date.Text)
date.Text = DateSerial(Year(DatTrv) + 1, Month(DatTrv), Day(DatTrv))

Remarque: un 29 février d'une année bissextile se verrait transformé en 1er mars.

Edit: bonjour Victor 21, oui en effet ça semble plus pratique. Je n'avais pas en mémoire l'existence de cette fonction, vu qu'elle fait sûrement la même chose.

Victor21 · 23 Janvier 2016

Re : incrementer par toupie

Bonjour tany.

Essayez :

Date =DateAdd("YYYY",1,Date)

Non testé, faute de fichier.

Edit : Bonjour, Dranreb 🙂

tany · 23 Janvier 2016

Re : incrementer par toupie

Merci beaucoup à tous deux
je peux continuer mon projet...
bonne journée

incrementer par toupie

tany

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

tany

XLDnaute Occasionnel

Discussions similaires

incrementer par toupie

tany

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

tany

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency