1er janvier et 31 decembre en quantièmes

[mfb]

Bonsoir le forum,
J'ai "bricolé" une macro qui à partir du bouton de l'usf de la PJ permet d'atteindre le but recherché mais
n'y a t-il pas + simple ? en particulier le passage par les cellules de la page 1.
Le but :
Obtenir, en quantième, les dates du 1er janvier et du 31 décembre de l'année extraitre de la date du DTPicker
Par exemple :
Pour une date DTPicker du 1-10-2014 41640 pour le 1er janvier 2014 et 42004 pour le 31 décembre 2014
Pour une date DTPicker du 3-01-2016 42376 pour le 1er janvier 2016 et 42735 pour le 31 décembre 2016
Je reste dispo pour + d' explication si nécessaire.
A+
Daniel

 

[mapomme]

Re : 1er janvier et 31 decembre en quantièmes

Bonsoir mfb,

Et si on essaye comme ceci:

Private Sub CommandButton1_Click()
   TextBox1 = Format(DateSerial(Year(DTPicker1), 1, 1), "0")
   TextBox2 = Format(DateSerial(Year(DTPicker1), 12, 31), "0")
End Sub

 

[Modeste geedee]

Re : 1er janvier et 31 decembre en quantièmes

Bonsour®
par formule le quantième d'une date s'obtient ainsi :

=TEXTE(Unedate-DATE(ANNEE(Unedate);1;0);"000")

ou

=TEXTE(Unedate;"aa")&TEXTE(Unedate-DATE(ANNEE(Unedate);1;0);"000")

 

[mapomme]

Re : 1er janvier et 31 decembre en quantièmes

Bonsoir mfb, Modeste geedee 🙂,

On pourrait même se passer du bouton dans le userform.

Private Sub DTPicker1_Change()
   TextBox1 = Format(DateSerial(Year(DTPicker1), 1, 1), "0")
   TextBox2 = Format(DateSerial(Year(DTPicker1), 12, 31), "0")
End Sub

Private Sub UserForm_Initialize()
   DTPicker1_Change
End Sub

 

[Modeste geedee]

Re : 1er janvier et 31 decembre en quantièmes

Bonsour®
😕
ne pas confondre DateSerial (N° de seriedate)
avec le quantième : N° d'ordre de la date dans l'année ...

Private Sub DTPicker1_Change()
   TextBox1 = DatePart("y", DateSerial(Year(DTPicker1), 1, 1))
   TextBox2 = DatePart("y", DateSerial(Year(DTPicker1), 12, 31))
End Sub

 

[TooFatBoy]

Re : 1er janvier et 31 decembre en quantièmes

Bonjour,

J'ai "bricolé" une macro qui à partir du bouton de l'usf de la PJ permet d'atteindre le but recherché mais
n'y a t-il pas + simple ? en particulier le passage par les cellules de la page 1.

Tu écris simplement ta date dans une cellule et si tu mets la cellule au format "Standard" alors tu vois la valeur affichée.

 

[mfb]

Re : 1er janvier et 31 decembre en quantièmes

Bonjour tout le monde.
Réponses super et instructives et de + cela allège bien mon bricolage.
Alors que dire de plus si ce n'est :
MERCI à tous et particulièrement Modeste, Mapomme et Marcel
Bonne journée
A+
Daniel