Discussion :

[Transitoire]

Bonjour,
j'ai un UF qui comporte un TextBox de Date. J'ai donc sur une feuille une cellule avec la fonction Aujourdhui et je transfère sa valeur dans le TextBox. Ca marche très bien. Je refait mon programme, en essayant de me désincarner des feuilles au maximum. et ça fait un temps immémorial que je bute sur l'entrée en initialize de la date du jour en valeur proposée(9 fois sur 10 c'est celle que j'utilise).
Ma grand-mère, disait: "Il vaut mieux un qui sait que dix qui cherche". Donc j'en arrive à me dire: "Mieux cent qui savent qu'un qui cherche"
J'aimerais bien trouver ça
Merci de votre aide

Cordialement

[pijaku]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Textbox1.Value = Date

[Transitoire]

Bonsoir Pijaku
Merci infiniment, J'ai essayé des trucs pas possible, c'était tellement simple. Quand je voyais Date, je pensais à Cdate.
Ma grand-mère avait raison
Cordialement

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
TextBox1.text = Replace(LCase(TextBox1.text, "today", Date))
End Sub

[Transitoire]

Bonjour
Cher patrick, sera-ce une blague , ta proposition ne fonctionne pas.


Juste pour signaler, ce n'est pas moi qui ait mis un pouce rouge à ton intervention.

Cordialement

[unparia]

Bonjour transitoire
C'était une blague, mais faite trop vite, avec une parenthèse bien mal placée.
Ce n'est pas moi non plus, qui ai mis un pouce rouge (bien que mérité).