OVH Cloud OVH Cloud

Saisie de la date

5 réponses
Avatar
michelS
Bonjour,

Dans un classeur, je voudrais faire apparaitre un TextBox (ou autre Box) qui par défaut me donnerai la date du jour (ca c'est pas dur!!) mais qui me permettrais de modifier le jour, le mois ou l'année avec des flèche haut/bas, soit avec trois Box ( un pour le jour,un pour le mois, et un pour l'année) soit avec un seul Box ou l'on peut selectionner la partie à modifier.
Cela ç l'air compliqué sans doute, mais sous WIndows, le changement d'heure de fait ainsi, .... (double clic sur l'horloge)
Donc, Existe-il un moyen d'integrer ce Box dans VBA mais avec la date ?
Il est clair que cela est réalisable via VBA, mais je me demande si ne réinvente pas la roue en faisant cela....
Je vous accorde que j'ai l'air un peu fainéant mais bon, ...
Un corollaire à la question, serai : Ou trouver les controles de Windows ? et comment les réutiliser. (dumoin ceux qui sont pas clairement expliqués dans VBA

Merci

MichelS

5 réponses

Avatar
Pascal Engelmajer
Salut,
il y a le controle Calendar MSCAL.OCX mais il faut l'avoir.

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"michelS" a écrit dans le message de news:

Bonjour,

Dans un classeur, je voudrais faire apparaitre un TextBox (ou autre Box)
qui par défaut me donnerai la date du jour (ca c'est pas dur!!) mais qui me

permettrais de modifier le jour, le mois ou l'année avec des flèche
haut/bas, soit avec trois Box ( un pour le jour,un pour le mois, et un pour
l'année) soit avec un seul Box ou l'on peut selectionner la partie à
modifier.
Cela ç l'air compliqué sans doute, mais sous WIndows, le changement
d'heure de fait ainsi, .... (double clic sur l'horloge)

Donc, Existe-il un moyen d'integrer ce Box dans VBA mais avec la date ?
Il est clair que cela est réalisable via VBA, mais je me demande si ne
réinvente pas la roue en faisant cela....

Je vous accorde que j'ai l'air un peu fainéant mais bon, ...
Un corollaire à la question, serai : Ou trouver les controles de Windows ?
et comment les réutiliser. (dumoin ceux qui sont pas clairement expliqués

dans VBA

Merci

MichelS


Avatar
Clément Marcotte
Bonjour,

Ce n'est aussi fancy que ce que tu demandes, mais cela fait la job.
(Regarde ton horloge de Windows avant et après)

Sub FoutLeBordelDansLHeureSysteme()
Date = InputBox("Indiquez la nouvelle date")
Time = InputBox("Indiquez la nouvelle heure")
End Sub


"michelS" a écrit dans le message de
news:
Bonjour,

Dans un classeur, je voudrais faire apparaitre un TextBox (ou autre
Box) qui par défaut me donnerai la date du jour (ca c'est pas dur!!)

mais qui me permettrais de modifier le jour, le mois ou l'année avec
des flèche haut/bas, soit avec trois Box ( un pour le jour,un pour le
mois, et un pour l'année) soit avec un seul Box ou l'on peut
selectionner la partie à modifier.
Cela ç l'air compliqué sans doute, mais sous WIndows, le changement
d'heure de fait ainsi, .... (double clic sur l'horloge)

Donc, Existe-il un moyen d'integrer ce Box dans VBA mais avec la
date ?

Il est clair que cela est réalisable via VBA, mais je me demande si
ne réinvente pas la roue en faisant cela....

Je vous accorde que j'ai l'air un peu fainéant mais bon, ...
Un corollaire à la question, serai : Ou trouver les controles de
Windows ? et comment les réutiliser. (dumoin ceux qui sont pas

clairement expliqués dans VBA

Merci

MichelS


Avatar
michelS
Merci Clément, mais je voudrais pas que le nom de ta macro soit trop réaliste, parceque cela ne mettra pas le bordel que dans le système, aussi, je crois que je vais taper du texte, car en plus il y a un problème de conversion de date entre le format américain et européen, malgré que Excel, le PC et toout le reste soit en format européen, les TextBox s'obstinent a inscrire la date en format américain..
Avatar
Clément Marcotte
Bonjour,

Je n'ai pas essayé avec un TextBox, mais dans mon InputBox(), je mets
la dade selon mes paramètres régionaux (aaaa-mm-jj)

Dans un textbox, tu peux essayer quelque chose du genre:

ladate = cdate(textbox1.value)

En principe, dans ce cas-là tu peux entrer la date selon tes
paramètres régionaux.

En plus compliqué, tu peux mettre 3 TextBoxes (Jour, mois année) et
travailler avec Dateserial().




"michelS" a écrit dans le
message de news:
Merci Clément, mais je voudrais pas que le nom de ta macro soit trop
réaliste, parceque cela ne mettra pas le bordel que dans le système,

aussi, je crois que je vais taper du texte, car en plus il y a un
problème de conversion de date entre le format américain et européen,
malgré que Excel, le PC et toout le reste soit en format européen, les
TextBox s'obstinent a inscrire la date en format américain..




Avatar
michelS
Oui mais là, en désepoir de cause j'ai tapédu code, (3x 2 lignes) et j'ai un résultat qui me convient, en gardant le bouton enfoncé on incrémente ou décrémente la date.
Si l'on désire changer plus de 2 mois, il est alors plus simple de taper la date directement.

Enfi cela fonctionne pratiquement comme je voulais, je crois que cela restera comme cela pour le moment...

Merci