Textbox contenant une date ou heure

Question

En fait j'ai plusieurs textbox qui doivent contenir des heures et des dates.
Mais je ne sais pas comment faire pour que la valeur de la textbox soit au format date ou heure.

Par exemple, je voudrais que s'il entre 1200 (donc 12h) ca lui mette automatiquement 12:00 ds la textbox pour que je puisse traiter ca (pareil pour les dates du genre01/01/01).

Et apr&#232;s je voudrais comparer les dates et heures, ca marchent avec juste un if ou il faut faire une comparaison speciale d&#251; au format.

Voila merci beaucoup

cs_osok · Answer

Et encore une petite question: quelle est la syntaxe vba pour ajouter une ligne &#224; une feuille excel?

jpleroisse · Answer

Pour ins&#233;rer une ligne, dans l'exemple apr&#232;s la ligne 3

Sub InsereLigne()
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
End Sub

En ce qui concerne le format de date, utilise le control MaskEditBox, lui est pr&#233;vu pour cela.
Le TextBox ,a pas de propri&#233;t&#233; pour g&#233;rer cela.

jpleroisse

cs_osok · Answer

Heu merci mais c'est quoi un MaskEditBox (je trouve ca o&#249; pour en ajoiuter un).


Et le maskeditbox marche aussi pour les heures? Et dans la cas des dates je fais comment pour qu'il la mette ds le bon format?

cs_osok · Answer

Apres recherche je vois qu'il faut installer un ocx pour pouvoir utiliser les maskeditbox. Et comme mon programme sera utiliser sur plusieurs machines diff&#233;rentes (dont je n'ai pas acc&#232;s) il faudra que je fasse un script pour installer l'ocx et c'est galere.

J'ai trouv&#233; une solution qui me conviendrait:

Je fais TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") (en indiquant &#224; l'utilisateur d'entrer des dates sous le format jjmmyyyy) je fais des test avant pour voir si c'est bien le format date (genre s'il rentre 20 chiffres).
Mais je voudrais faire ca quand l'utilisateur a fini (donc lostfocus) mais apparement vba ne le gere pas. Quelqu'un sait comment faire pour que je puisse declancher cette conversion au lostfocus?

cs_osok · Answer

Pour contourner le probleme de lostfocus j'ai tester ds _Change si la longueur &#233;tait de 6 puis si c'est le cas hop conversion.

Par contre maintenant j'ai encore un probleme ds la conversion (et oui encore lol).
j'utilise cette syntaxe: TxtDateDeb.Value = Format(TxtDateDeb.Value, "dd/mm/yyyy")

Quand je rentre 140405 par exemple il me le converti en 30/05/2284 (au lieu de 14/04/05).
Apres je me suis dit que les anglais avait pas le meme format de date que nous: je rentre 010101 et il me met 27/08/1927 (au lieu de 01/01/01 1er janvier 2001).
Donc je sais pas du tout quel est le delire du format mais ca me pose des problemes lol.
Merci &#224; ceux qui seront m'aider (et &#224; ceux qui meme s'ils ne m'aident pas essaye tout de meme )

cs_osok · Answer

En fait j'ai utilis&#233; un ocx microsoft qui gere les dates et les heures donc le probleme est regl&#233;.
Merci

Textbox contenant une date ou heure

6 réponses

Discussions similaires