Date de Jour dans un TextBox Enable False

[Ilino]

Bonsoir Forum
je souhaiterai faire la Date de jour dans un TextBox ( dans une feuille) avec la propriété Enable False est il possible ??

Private Sub TextBox2_Change()
Me.TextBox2 = "On est le " & Date
TextBox2.Enabled = False
End Sub

Avec ce code ça marche pas ?
Thinks

 

[Efgé]

Re : Date de Jour dans un TextBox Enable False

Bonsoir Ilino,
Juste avec le code que tu propose, je pense que:
Si tu utilise une Private Sub TextBox2_Change() il faudrai que la TextBox2 puisse changer, ce qui n'est pas possible si la TextBox2 est Enabled = False... ...Comment vhanger une TextBox si elle n'est pas modifiable.
Si tu veux que ta TextBox affiche la date à l'ouverture d'un USF utilise plutot

Private Sub UserForm_Initialize()
Me.TextBox2.Value = "On est le " & Date
End Sub

Cordialement

EDIT Je n'avais pas vu que la TextBox était sur une feuille.... Désolé

 

[Ilino]

Re : Date de Jour dans un TextBox Enable False

Bonsoir Ilino,
Juste avec le code que tu propose, je pense que:
Si tu utilise une Private Sub TextBox2_Change() il faudrai que la TextBox2 puisse changer, ce qui n'est pas possible si la TextBox2 est Enabled = False... ...Comment vhanger une TextBox si elle n'est pas modifiable.
Si tu veux que ta TextBox affiche la date à l'ouverture d'un USF utilise plutot

Private Sub UserForm_Initialize()
Me.TextBox2.Value = "On est le " & Date
End Sub

Cordialement

EDIT Je n'avais pas vu que la TextBox était sur une feuille.... Désolé

Bonsoir
merci pour la réponse rapide , justement mon souci la TextBox sur une feuille ?
Grazie

 

[Efgé]

Re : Date de Jour dans un TextBox Enable False

Re
Si nous sommes sur un feuille,

Private Sub Worksheet_Activate()
Me.TextBox2.Value = "On est le " & Date
End Sub

Après on peux voir à l'ouverture du fichier en mettant le code dans le ThisWorkbook

Private Sub Workbook_Open()
Sheets("Feuil1").TextBox2.Value = "On est le " & Date
End Sub

Cordialement

 

[Ilino]

Re : Date de Jour dans un TextBox Enable False

Re
Si nous sommes sur un feuille,

Private Sub Worksheet_Activate()
Me.TextBox2.Value = "On est le " & Date
End Sub

Cordialement

Re
Thinks
A+

 

[job75]

Re : Date de Jour dans un TextBox Enable False

Bonsoir Ilino, Efgé,

Pas trop compris mais il me semble qu'il suffit de mettre la propriéte Locked de la TextBox à True.

Une macro peut modifier la valeur mais pas l'utilisateur.

Edit : c'est valable pour un Userform, pas si la TextBox est dans une feuille de calcul.

A+

 

[Ilino]

Re : Date de Jour dans un TextBox Enable False

Re
Si nous sommes sur un feuille,

Private Sub Worksheet_Activate()
Me.TextBox2.Value = "On est le " & Date
End Sub

Bonsoir Maitre Job
le code ci dessus proposé par Amico Efgé fonctionne parfaitement et il répond a mon souci
Merci