Macro date

[Lagache]

Bonjour le Forum

Voilà ma macro sous userform:
Private Sub UserForm_Initialize()
InitListes
TextBDate2.Visible = False
End Sub

Private Sub TextBDate_Change()
Dim Val As Byte
Dim journee As Date
If CheckBDate = False Then
TextBDate2.Visible = True
Else
TextBDate2.Visible = False
journee = Now
TextBDate.Value = Format(Now, "dd/mm/yyyy")
End If
End Sub
Le problémeest que ça ne fonctionne qu'avec la date auto,alors que je voudrais laisser le choix


Mon fichier est trop gros pour envoyer en joint

Merci à vous

 

[Eric 45]

Re : Macro date

Bonjour le forum
Bonjour Lagache

Je ne sais pas si j'ai bien compris, mais je te soumets ce code :

Private Sub UserForm_Initialize()
InitListes
TextBDate.Value = Date
TextBDate.Enabled = False
End Sub

Private Sub CheckBox1_Click()
TextBDate.Enabled = CheckBox1.Value
End Sub

A+

PS : si tu croises Claude tu lui diras bonjour de ma part

 

[Lagache]

Re : Macro date

Bonsoir le Forum et toi Eric

Merci pour ta réponse , je vais essayer et je te tiens au courant , pas de probléme pour le bonjour à Claude , il est à côté.

Lagache est le diminutif d'un petit hameau d'Auvergne où je me réfugie assez souvent ,au milieu de mes montagnes.

Merci encore de tes conseils qui sont toujours autant précieux et pertinents

à bientôt +