OVH Cloud OVH Cloud

formt de date dans usf

7 réponses
Avatar
drisou
bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.

7 réponses

Avatar
René Delcourt
Bonjour,

J'ai eu ce problème et m'en suis sorti avec une recherche sur le forum du
style
"format date userform"
A+
--
René Delcourt



bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.


Avatar
michdenis
Bonjour Drisou,

Quel est le type de contrôle de ta "zone de texte" ? textbox, listbox, combobox ...

"je tape une date " -> tu saisis au clavier les dates dans ces contrôles ?


Salutations!


"drisou" a écrit dans le message de news:
bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.
Avatar
drisou
merci michdenis j ai trouvé la reponse a ma question en fesant des essais:
voici au cas ou quelqu un en aurait besoin
Sub test()
Range("a5").end(xldown) = Format(Range("A5").end(xldown), "dd/mm/yyyy")
End Sub
pour qu il me mette la deniere cellule non vide de la colonne "a" au format
de date "dd/mm/yyy". bonne jounée


Bonjour Drisou,

Quel est le type de contrôle de ta "zone de texte" ? textbox, listbox, combobox ...

"je tape une date " -> tu saisis au clavier les dates dans ces contrôles ?


Salutations!


"drisou" a écrit dans le message de news:
bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.





Avatar
michdenis
Bonjour Drisou,

Merci pour le retour et tant mieux si tu as trouvé la solution qui te convient.

Mais ta question parlait d'une zone de texte, d'un userform, d'une saisie manuelle (tape)

Il me semble que les éléments de ta solution est loin de la description de ton problème...;-)


Salutations!


"drisou" a écrit dans le message de news:
merci michdenis j ai trouvé la reponse a ma question en fesant des essais:
voici au cas ou quelqu un en aurait besoin
Sub test()
Range("a5").end(xldown) = Format(Range("A5").end(xldown), "dd/mm/yyyy")
End Sub
pour qu il me mette la deniere cellule non vide de la colonne "a" au format
de date "dd/mm/yyy". bonne jounée


Bonjour Drisou,

Quel est le type de contrôle de ta "zone de texte" ? textbox, listbox, combobox ...

"je tape une date " -> tu saisis au clavier les dates dans ces contrôles ?


Salutations!


"drisou" a écrit dans le message de news:
bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.





Avatar
drisou
RE michdenis, la premiere fois que j ai posté mon probleme le texte etait
trop long pour etre contenu dans la fenetre apparament , j ai donc du le
raccourcir et donc peut etre pas assez precis du coup. voila au fait j ai
creé un usf avec 3 zones de texte dont une pour les dates, pour que les
valeurs inscrites dans les zones de textes se reportent sur un tableau d un
feuille de calcul,sur la derniere cellule de colonne non vide , mais a chaque
fois que je mettai la date jj/mm/aaaa depuis l usf dans mon tableau etait
inscrit sous le format mm/jj/aaaa. ce phenomene existait uniquement quand je
passait par l usf car lorsque j ecrivait les dates jj/mm/aaaa directement
dans les cellules le format etait correct. donc le code que j ai donné
precedement je l ai mis dans le code du bouton usf et ca marche bien.


Bonjour Drisou,

Merci pour le retour et tant mieux si tu as trouvé la solution qui te convient.

Mais ta question parlait d'une zone de texte, d'un userform, d'une saisie manuelle (tape)

Il me semble que les éléments de ta solution est loin de la description de ton problème...;-)


Salutations!


"drisou" a écrit dans le message de news:
merci michdenis j ai trouvé la reponse a ma question en fesant des essais:
voici au cas ou quelqu un en aurait besoin
Sub test()
Range("a5").end(xldown) = Format(Range("A5").end(xldown), "dd/mm/yyyy")
End Sub
pour qu il me mette la deniere cellule non vide de la colonne "a" au format
de date "dd/mm/yyy". bonne jounée


Bonjour Drisou,

Quel est le type de contrôle de ta "zone de texte" ? textbox, listbox, combobox ...

"je tape une date " -> tu saisis au clavier les dates dans ces contrôles ?


Salutations!


"drisou" a écrit dans le message de news:
bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.










Avatar
michdenis
Bonjour Grisou,

Il y a aussi ceci :

with Range("a5").end(xldown)
.NumberFormat = "dd/mm/yyyy"
If isdate(me.textbox1) then
.Value = CDate(Me.TextBox1)
else
Msgbox "Textbox ne contient pas une date")
end if
end with


Salutations!

"drisou" a écrit dans le message de news:
RE michdenis, la premiere fois que j ai posté mon probleme le texte etait
trop long pour etre contenu dans la fenetre apparament , j ai donc du le
raccourcir et donc peut etre pas assez precis du coup. voila au fait j ai
creé un usf avec 3 zones de texte dont une pour les dates, pour que les
valeurs inscrites dans les zones de textes se reportent sur un tableau d un
feuille de calcul,sur la derniere cellule de colonne non vide , mais a chaque
fois que je mettai la date jj/mm/aaaa depuis l usf dans mon tableau etait
inscrit sous le format mm/jj/aaaa. ce phenomene existait uniquement quand je
passait par l usf car lorsque j ecrivait les dates jj/mm/aaaa directement
dans les cellules le format etait correct. donc le code que j ai donné
precedement je l ai mis dans le code du bouton usf et ca marche bien.


Bonjour Drisou,

Merci pour le retour et tant mieux si tu as trouvé la solution qui te convient.

Mais ta question parlait d'une zone de texte, d'un userform, d'une saisie manuelle (tape)

Il me semble que les éléments de ta solution est loin de la description de ton problème...;-)


Salutations!


"drisou" a écrit dans le message de news:
merci michdenis j ai trouvé la reponse a ma question en fesant des essais:
voici au cas ou quelqu un en aurait besoin
Sub test()
Range("a5").end(xldown) = Format(Range("A5").end(xldown), "dd/mm/yyyy")
End Sub
pour qu il me mette la deniere cellule non vide de la colonne "a" au format
de date "dd/mm/yyy". bonne jounée


Bonjour Drisou,

Quel est le type de contrôle de ta "zone de texte" ? textbox, listbox, combobox ...

"je tape une date " -> tu saisis au clavier les dates dans ces contrôles ?


Salutations!


"drisou" a écrit dans le message de news:

bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.










Avatar
drisou
merci bien michdenis


Bonjour Grisou,

Il y a aussi ceci :

with Range("a5").end(xldown)
.NumberFormat = "dd/mm/yyyy"
If isdate(me.textbox1) then
.Value = CDate(Me.TextBox1)
else
Msgbox "Textbox ne contient pas une date")
end if
end with


Salutations!

"drisou" a écrit dans le message de news:
RE michdenis, la premiere fois que j ai posté mon probleme le texte etait
trop long pour etre contenu dans la fenetre apparament , j ai donc du le
raccourcir et donc peut etre pas assez precis du coup. voila au fait j ai
creé un usf avec 3 zones de texte dont une pour les dates, pour que les
valeurs inscrites dans les zones de textes se reportent sur un tableau d un
feuille de calcul,sur la derniere cellule de colonne non vide , mais a chaque
fois que je mettai la date jj/mm/aaaa depuis l usf dans mon tableau etait
inscrit sous le format mm/jj/aaaa. ce phenomene existait uniquement quand je
passait par l usf car lorsque j ecrivait les dates jj/mm/aaaa directement
dans les cellules le format etait correct. donc le code que j ai donné
precedement je l ai mis dans le code du bouton usf et ca marche bien.


Bonjour Drisou,

Merci pour le retour et tant mieux si tu as trouvé la solution qui te convient.

Mais ta question parlait d'une zone de texte, d'un userform, d'une saisie manuelle (tape)

Il me semble que les éléments de ta solution est loin de la description de ton problème...;-)


Salutations!


"drisou" a écrit dans le message de news:
merci michdenis j ai trouvé la reponse a ma question en fesant des essais:
voici au cas ou quelqu un en aurait besoin
Sub test()
Range("a5").end(xldown) = Format(Range("A5").end(xldown), "dd/mm/yyyy")
End Sub
pour qu il me mette la deniere cellule non vide de la colonne "a" au format
de date "dd/mm/yyy". bonne jounée


Bonjour Drisou,

Quel est le type de contrôle de ta "zone de texte" ? textbox, listbox, combobox ...

"je tape une date " -> tu saisis au clavier les dates dans ces contrôles ?


Salutations!


"drisou" a écrit dans le message de news:

bonjour, lorque je tape une date dans une zone de texte d un userform celui
ci apparit en mm/dd/yyyy au lieu de dd/mm/yyyy comme je l ai tappé. merci
pour votre aide.