USERFORM Date d'aujourd'hui comme valeur par défaut

[troopers87]

Bonjour à tous,

les péripéties Excellistes nous mènent parfois à de bien passionnantes questions ^^ Voici celle que je vous soumets aujourd'hui :

je souhaiterais avoir une valeur par défaut dans une textbox qui soit la date d'aujourd'hui (type : dd/mm/yy), mais que l'utilisateur puisse modifier à sa convenance.

L'idée finale est que lors de la validation, la date par défaut ou la nouvelle date rentrée par l'utilisateur soit insérée dans une cellule du classeur.

Merci d'avance pour vos réponses 😉

 

[Pierrot93]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Bonjour,

pour renvoyer une date d'un textbox vers une cellule, regarde du coté de la fonction "CDate" :

Range("A1").Value = CDate(Textbox1.Value)

bon après midi
@+

 

[Staple1600]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Bonjour à tous


Qui crée le fichier exemple pour que nous puissions faire des tests?

En toute logique, troopers87 s'y colle, non ? 😉

EDITION: Bonjour Pierrot93

 

[troopers87]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Pardon, je ne pensais pas que c'était nécessaire vu la question.
Plop, le voici 😉

 

[ERIC S]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Bonjour à tous

si j'ai bien compris, pour initialiser ta textbox :

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Date, "dd/mm/yyyy")
End Sub

 

[troopers87]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Alors, oui ça répond en partie à ma question, mais l'idée est que la textbox prenne comme valeur par défaut la date d'aujourd'hui. Ensuite, si il veut antidater par exemple, alors il pourra mettre une autre date.

Comment puis-je mettre la valeur d'aujourd'hui par défaut dans la textbox ?

 

[Dull]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Salut Troopers87, Pierrot🙂, JM🙂, le Forum

Il n'y a pas de UserForm dans ton fichier et je comprend les interrogations des mes collègues

avec ce que tu as produit pas besoin de USF

Sub test()
[B1] = Date
End Sub

S'il faut un USF

Sub test()
TextBox1 = Date : [B1] = CDate(TextBox1)
End Sub

mais je doute que cela te soit utile en l'état

essaye d'être un peu plus précis, dans ton fichier et dans tes messages, car toi seul sait ce qu'il y a dans ta tête 😉

EDITION: Salut Eric🙂 ...etnemeparlepasdeChaleur...Aujourd'hui...Snifffff... zuisenrubé...😛

Bonne Journée

 

[ERIC S]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Re

Bonjour Dull, l'avantage chez nous c'est que c'est tempéré (pas de chaud et froid, que des froid/froid....)

Trooper87, normalement ma proposition en #5 initialise ta textbox avec la date du jour, à l'ouverture de l'USF (qui n'existait pas dans ton fichier joint).

 

[troopers87]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Bonjour et merci pour votre intérêt,

je n'avais pas conscience d'être imprécis dans mes explications ; en plus de cela, j'ai effectivement mal enregistré le fichier date et l'USF n'y était pas. Le voici à nouveau avec le code que vous m'avez donné.

En l'espèce, oui, j'ai besoin d'un USF et le souci que je rencontre ici est que l'utilisateur ne peut pas modifier la date d'aujourd'hui.

Pour faire au plus simple voici ma démarche :
l'utilisateur rencontre la textbox qui présente la date d'aujourd'hui,
- si il clique sur Valider, alors c'est la date d'aujourd'hui qui est insérée en B1
- si il décide de modifier cette date, elle sera bien insérée dans B1.

En espérant avoir été le plus clair possible, merci encore 😉

 

[Dull]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Re le Fil

Regardes le fichier joint et dit nous😀

Edit: Envoi du mauvais fichier je m'y re colle😡

Bonne Journée

 

[troopers87]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

A vrai dire, non car dans votre version du fichier, il n'y a aucun USF. L'avez-vous trouvé dans mon dernier fichier ?

Pour ce qui est de ta proposition, c'est très gentil mais malheureusement cela ne réponds pas du tout à ma demande. Le but est vraiment de passer par un UserForm...

 

[Staple1600]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Re

Essaies avec ce code en lieu et place du tien

Private Sub ToggleButton1_Click()
If Not IsDate(TextBox1) Then
MsgBox "Saisie erronée"
Else
[B1] = TextBox1
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1 = Date
End Sub

PS: Pourquoi ne pas utiliser un commandbutton ?

EDIT: Dull, je suppose que ton code est assez proche du mien et vice-versa?
Tu confirmes, c'est juste pour m'éviter d'ouvrir ta PJ ( un tit coup de flemme passager 😉 )
Quoique qu'en lisant les derniers commentaires du demandeur, je suppute que je devrais ouvrir ton fichier quand même 😉
Tant pis pour ma flemmardise 😉

 

[Dull]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Re, Salut JM🙂

Erreur d'envoi de fichier... désolé😱

dans le message #10 et avec un CommandButton en lieu et place de ToggleButton

EDITION:

Dull, je suppose que ton code est assez proche du mien et vice-versa?

Oui JM 🙂 sinon que le tien est plus élaboré que le mien

...un tit coup de flemme...

le tien est passager🙄 ...le mien est presque Permanent...😛

Bonne Journée

 

[Staple1600]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Re

Dull:
J'ai ouvert ton fichier.
On avait pareil pour l'initialize
(Pour autant cela ne valide pas l'existence de la télépathie 😉 surtout qu'il y a de la distance entre nos deux caboches)

T'ajoutes pas une tite vérif dans cas d'une saisie d'un string intemporel comme je le fis ? 😉

EDIT: Ah bah zut je viens juste de rencontrer ton Edith sinon j'aurais point commis ce message si 😉

 

[ERIC S]

Re : USERFORM Date d'aujourd'hui comme valeur par défaut

Re

ma proposition initialise fonctionne

dans ton fichier il faut l'ajouter et par contre supprimer

TextBox1 = Date:

qui remet systématiquement la date du jour quand tu valides ..............😎