Probleme de date entre USF et feuille

[angoul]

Bonjour
j'ai creer une usf qui permet avec une selection dans un calendrier de mettre une date, a la validation cette date est transferer dans une cellule.

Quand je saisie a partir du calendrier : 08/07/2015 dans la
par contre dans ma feuill excel cela se transforme en : 07/08/2015

j'ai mis dans format de la cellule le bon format
dans option excel j'ai choisi calendrier 1900

je comprend pas pourquoi cela fait sa.

voila le code du calendrier :
Option Explicit
Private Sub UserForm_Initialize()
Caption = StrConv(Format(Now, "dddd mmmm yyyy"), vbProperCase)

End Sub
Private Sub Calendar1_Click()
UserForm9.txtdatepubli.Value = Calendar1.Value: UserForm9.txtdatepubli.SetFocus
Unload Me
End Sub


une idée peut etre??

 

[Pierrot93]

Re : Probleme de date entre USF et feuille

Bonjour,

regarde peut être du coté de la fonction vba "CDate"...

bonne journée
@+

 

[angoul]

Re : Probleme de date entre USF et feuille

oula c'est du charabia sa

 

[Pierrot93]

Re : Probleme de date entre USF et feuille

Re,

oula c'est du charabia sa

bah... depuis le temps que tu viens ici... je t'ai d'ailleurs déjà donné un exemple de cette fonction...

 

[angoul]

Re : Probleme de date entre USF et feuille

Je suis un poisson rouge alors

 

[Pierrot93]

Re : Probleme de date entre USF et feuille

Re,

tu ne montres pas le code qui envoie la date dans la cellule....

 

[angoul]

Re : Probleme de date entre USF et feuille

voici le code

Range("C6") = txtdatepubli.Value 'Ecrit en C6 la valeur de txtdatepubli

 

[Pierrot93]

Re : Probleme de date entre USF et feuille

Re,

pour t'éviter de tourner encore longtemps dans ton bocal...

Range("C6") = CDate(txtdatepubli.Value)

 

[angoul]

Re : Probleme de date entre USF et feuille

Merci j'avait la tete qui tourne a force, lol