OVH Cloud OVH Cloud

format d'heure

4 réponses
Avatar
Markos
bonjour,
A l'aide d'un UserForm, je renseigne des cellules.
Dans le UserForm, un TextBox me donne la date du jour de saisi des
informations du UserBox, avec l'affichage au bon format.
Par contre, la valeur affichée dans les cellules est sous le format
"31121254", quelquesoit le format date appliquée aux cellules en question ?
J'utilise K'ymant cette procedure sur d'autre feuille, sans problème de
format de date.
Que faire ?
Merci

4 réponses

Avatar
verificator
Markos,

[A1] = Format(CDate(TextBox1), "dddd dd mmmm yyyy")
ou
[A1] = Format(CDate(ComboBox1), "dddd dd mmmm yyyy")

amicalement

-----Original Message-----
bonjour,
A l'aide d'un UserForm, je renseigne des cellules.
Dans le UserForm, un TextBox me donne la date du jour de
saisi des

informations du UserBox, avec l'affichage au bon format.
Par contre, la valeur affichée dans les cellules est
sous le format

"31121254", quelquesoit le format date appliquée aux
cellules en question ?

J'utilise K'ymant cette procedure sur d'autre feuille,
sans problème de

format de date.
Que faire ?
Merci


.



Avatar
Markos
Merci,
Je n'ai pas encore vérifié, je suis en train de décortiquer un autre
problème.
A bientôt
"verificator" a écrit dans le message de
news:11b701c4e5bb$6e578110$
Markos,

[A1] = Format(CDate(TextBox1), "dddd dd mmmm yyyy")
ou
[A1] = Format(CDate(ComboBox1), "dddd dd mmmm yyyy")

amicalement

-----Original Message-----
bonjour,
A l'aide d'un UserForm, je renseigne des cellules.
Dans le UserForm, un TextBox me donne la date du jour de
saisi des

informations du UserBox, avec l'affichage au bon format.
Par contre, la valeur affichée dans les cellules est
sous le format

"31121254", quelquesoit le format date appliquée aux
cellules en question ?

J'utilise K'ymant cette procedure sur d'autre feuille,
sans problème de

format de date.
Que faire ?
Merci


.



Avatar
verificator
ok Markos,

tiens moi au courant

amicalement

-----Original Message-----
Merci,
Je n'ai pas encore vérifié, je suis en train de
décortiquer un autre

problème.
A bientôt
"verificator" a écrit dans le
message de

news:11b701c4e5bb$6e578110$
Markos,

[A1] = Format(CDate(TextBox1), "dddd dd mmmm yyyy")
ou
[A1] = Format(CDate(ComboBox1), "dddd dd mmmm yyyy")

amicalement

-----Original Message-----
bonjour,
A l'aide d'un UserForm, je renseigne des cellules.
Dans le UserForm, un TextBox me donne la date du jour de
saisi des

informations du UserBox, avec l'affichage au bon format.
Par contre, la valeur affichée dans les cellules est
sous le format

"31121254", quelquesoit le format date appliquée aux
cellules en question ?

J'utilise K'ymant cette procedure sur d'autre feuille,
sans problème de

format de date.
Que faire ?
Merci


.




.




Avatar
Markos
Bonjour,
Super, j'ai rajouter ton instruction dans ma procédure, résultat impec!!

Range("L" & LigneAjoutA).Value = Format(CDate(DateSaisie), "dd/m/yy")




J'en profite pour vous remercier tous,
Grâce à vous j'ai pu développer mon application. Avec beaucoup de votre aide
et un peu de Persévérance de ma part. Projet commencé en mars 2004, quelques
nuits passées devant l'écran...
Bien que je ne me rende pas bien compte du bilan effort/résultats (environ
l'équivalent de 13jours de 8h pour 145 macro, soit environ 2200 lignes)
mais je suis content de voir la fin de ce projet.
C'était mon premier projet en VBA, mise à par quelques petite macro par ci
par là.

Merci encore pour le soutien très rapide, efficient .... principalement à
Michedenis, Misange, Michedenis, jps, JpPradier, Frédéric Sigonneau, Chris
... et tous les autres pour vos réponses et tuyaux, les liens vers d'autre
sites....

PS : Je n'ai pas encore tous terminé, il me reste je pense encore 200 à 300
lignes pour paufiner la mise en page, et la gestion de l'aide... Et résoudre
le passage de l'application d'un micro à un autre, pour l'instant certaines
macro plante. Mais promis je vais chercher encore un peu avant de vous
rappeler.

ALORS A BIENTÖT, ET BONNE FETES A TOUS

"verificator" a écrit dans le message de
news:15e201c4e886$6c2c97e0$
ok Markos,

tiens moi au courant

amicalement

-----Original Message-----
Merci,
Je n'ai pas encore vérifié, je suis en train de
décortiquer un autre

problème.
A bientôt
"verificator" a écrit dans le
message de

news:11b701c4e5bb$6e578110$
Markos,

[A1] = Format(CDate(TextBox1), "dddd dd mmmm yyyy")
ou
[A1] = Format(CDate(ComboBox1), "dddd dd mmmm yyyy")

amicalement

-----Original Message-----
bonjour,
A l'aide d'un UserForm, je renseigne des cellules.
Dans le UserForm, un TextBox me donne la date du jour de
saisi des

informations du UserBox, avec l'affichage au bon format.
Par contre, la valeur affichée dans les cellules est
sous le format

"31121254", quelquesoit le format date appliquée aux
cellules en question ?

J'utilise K'ymant cette procedure sur d'autre feuille,
sans problème de

format de date.
Que faire ?
Merci


.




.