Date dans textbox

Le
Denys
Bonjour à tous,

Comment fait-on pour qu'à l'ouverture d'un userform ayant un
calendrier que le textbox1 affiche le premier du mois courant
(2007/08/1), et le textbox2 la dernière journée du mois(2007/08/31).

Private Sub UserForm_Initialize()
Me.Calendar2 = Date
TextBox1 = Calendar2.Value - Month(Calendar2.Value) 'pas bon
TextBox2
= 'pas
bon évidemment
End Sub

Merci

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4799771
Bonsoir,

Private Sub UserForm_Initialize()
Me.TextBox1 = DateSerial(Year(Me.Calendar1), Month(Me.Calendar1),
1)
Me.TextBox2 = DateSerial(Year(Me.Calendar1), Month(Me.Calendar1) +
1, 0)
End Sub

JB


On 22 août, 22:16, Denys
Bonjour à tous,

Comment fait-on pour qu'à l'ouverture d'un userform ayant un
calendrier que le textbox1 affiche le premier du mois courant
(2007/08/1), et le textbox2 la dernière journée du mois(2007/08/31).

Private Sub UserForm_Initialize()
Me.Calendar2 = Date
TextBox1 = Calendar2.Value - Month(Calendar2.Value) 'pas bon
TextBox2
= 'pas
bon évidemment
End Sub

Merci

Denys


Daniel
Le #4799761
Bonsoir.
TextBox1 = DateSerial(Year(Date), Month(Date), 1)
TextBox2 = DateSerial(Year(Date), Month(Date) + 1, 0)
Cordialement.
Daniel
"Denys"
Bonjour à tous,

Comment fait-on pour qu'à l'ouverture d'un userform ayant un
calendrier que le textbox1 affiche le premier du mois courant
(2007/08/1), et le textbox2 la dernière journée du mois(2007/08/31).

Private Sub UserForm_Initialize()
Me.Calendar2 = Date
TextBox1 = Calendar2.Value - Month(Calendar2.Value) 'pas bon
TextBox2
= 'pas
bon évidemment
End Sub

Merci

Denys
Denys
Le #4799751
Bonsoir JB,

Merci infiniment, je n'aurais jamais trouver ça tout seul !!!

Bonne soirée

Denys


On 22 août, 16:37, JB
Bonsoir,

Private Sub UserForm_Initialize()
Me.TextBox1 = DateSerial(Year(Me.Calendar1), Month(Me.Calendar1),
1)
Me.TextBox2 = DateSerial(Year(Me.Calendar1), Month(Me.Calendar1) +
1, 0)
End Sub

JB



Publicité
Poster une réponse
Anonyme