Bizarre

[Manu62]

Bonjour à tous,

J'ai le code suivant pour certain champs dans mon userform :
Private Sub userForm_Initialize()
derligne = Sheets(1).Range("D65000").End(xlUp).Row
NumSaisie.Value = Sheets(1).Cells(derligne, 4).Value + 1
Date1 = Now
Date1 = Format(Date1, "dd/mm/yyyy")
Heure1 = Now
Heure1 = Format(Heure1, "hh:mm")
Date2 = Now
Date2 = Format(Date2, "dd/mm/yyyy")
date3 = Now + 1
date3 = Format(date3, "dd/mm/yyyy")
Date4 = Now + 1
Date4 = Format(Date4, "dd/mm/yyyy")
End Sub


Ce qui est bizarre, c'est au lieu de mettre 06/05/08 il me saisie 05/06/08 ???

quelqu'un peux m'aider ?

A+

MAnu

 

[pierrejean]

Re : Bizarre

bonjour Manu 62

A tester

Dim Date1 as date
......

 

[tototiti2008]

Re : Bizarre

Bonjour à tous,

C'est en effet trés bizarre
j'ai testé ton code sans le modifier et moi j'ai bien les dates qui s'affichent comme 06/05/2008.
Je suis même passé dans le panneau de configuration en Anglais(Etats-Unis) et ça marche encore...

Je ne sais pas trop

 

[GIBI]

Re : Bizarre

Salut,

La solution m'interesse car j'ai le même problème dans un feuille excel que je résoud en forçant le format en texte (a priori c'est au moment de l'affichage qu'excel interprete la date comme étant de format US)

je fait un truc comme cela "'" & Format(Date1, "dd/mm/yyyy")

Est-ce compatible avec USERFORM?

GIBI

si tu mets

Date1 = Format(Date1, "dd/mmm/yyyy") tout marche : va comprendre!

 

[GIBI]

Re : Bizarre

re-bonsoir,

Comme je suis un peu têtu, j'ai essayé quelques syntaxes différentes , en voici qui fonctionne dans le cas de l'alimenation d'une cellule de feuillle de calcul

1. Convertir le "string" (généré par FORMAT) en format date avec CDATE
CDate(Format(date1, "dd/mm/yyyy"))

2. formater la date en Date US et elle est converti en date "européenne"
Format(date1, "mm/dd/yyyy")


à tester illico avec le champ du userform

à suivre

GIBI