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
On pourrait même se passer du bouton dans le userform.
VB:
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
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.
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