probleme de date en vba

[BASSDINGUE]

bonjour le forum,

j'ai fait un recherche sur mon pb de date, j'ai essayer les differentes propositions faites mais ... j'ai toujours le pb
c'est a dire que quand je met une date dans une textbox sous la forme:"jj/mm/aaaa" quand j'enregistre l'info sur une feuille excel le format devient:"mm/jj/aaaa"
en fait il inverse les jours avec les mois alors que sur la feuille excel j'ai bien defini le bon format
je pense que c'est au mmoment de l'envoi de l'info vers la feuille qu'il y a un schmurtz, mais je vois pas ou.
Si vous avez des idees n'hesitez à les envoyer je les essayerai toute
merci et bonne journee
bassdingue

 

[mromain]

Re : probleme de date en vba

re,

tu rajoutes cette fonction dans le module :

Public Function MonCDate(laDate As String) As Date
Dim tabStr() As String
tabStr = Split(laDate, "/")
MonCDate = DateSerial(tabStr(2), tabStr(1), tabStr(0))
End Function

et tu l'utilises tel quel :

.Range("CD" & lresult) = MonCDate(TBF14)

avec "TBF14" au format "jj/mm/aaaa"

a+

 

[BASSDINGUE]

Re : probleme de date en vba

merci à romain et pascal c'est sympa

Pour ma par j'ai essaye car j'ai cru remarquer que si il n'y a rien au format date dans la textbox et que je clique dessus: ca plante
et la ben ca marche, a verifier si il n'inverse pas les dates inferieur 12/mm

With Sheets("T_CLT_FORMATION")
On Error Resume Next
.Range("CD" & lresult) = CDate(TBF14)
If TBF14.Value = "" Then .Range("CD" & lresult) = ""
End With

a la place de

With Sheets("T_CLT_FORMATION")
.Range("CD" & lresult) = TBF14
End With

et ca a l'air de fonctionner, si ca plante j'utiliserai la technique a romain
BONNE SOIREE
A+
bassdingue

 

[PascalXLD]

Re : probleme de date en vba

re

à ta place j'aurais fait

With Sheets("T_CLT_FORMATION")
If TBF14.Value = "" Then 
.Range("CD" & lresult) = ""
Else
   .Range("CD" & lresult) = CDate(TBF14)
End if
End With

 

[BASSDINGUE]

Re : probleme de date en vba

merci pour vos reponses,
excusez moi de ne pas m'etre manifesté + tot mais j'etais en deplacement .

encore merci et a tres bientot