problème de date et textboxRésolu

Question

Bonjour à tous,

Je vous demande un petit coup de mains car j'ai fait un petit programme dans lequel l'utilisateur doit renseigner une date dans une textbox. Cette dernière affiche par défaut la date du jour. Quand je renvoi la date dans une cellule excel si l'utilisateur n'a pas modifié la date par défaut celle-ci s'affiche au format dd/mm/yyyy ( pas de soucis ) par contre si il à rentré une date autre celle ci s'affiche au format mm/dd/yyyy.

Je pense que je ne suis pas le premier à rencontrer ce soucis mais malgré tout ce que j'ai put lire à droite à gauche sur les forums je n'ai pas trouvé de solution et j'en ai essayé pas mal...

Merci d'avance pour votre aide si je n'ai pas été clair n'hésitez pas à ma le dire !!

tyron2002 · Accepted Answer

Ca y'est j'ai trouvé !!! ( enfin ça fait vraiment très longtemps que je cherchai et la solution est vraiment écœurante de simplicité ... )

Là ça marche :

Public vntIntervention As String

Private Sub TxtDate_Change()

vntIntervention = TxtDate.Value

End Sub

Private Sub CmdFin_Click()
vntIntervention = format(vntIntervention, "mm/dd/yyyy")
Cells(intL1, intC1).Value = vntIntervention

End Sub 



Merci pour ton aide adn56 ce n'était pas forcement la solution mais le fait d'aborder le problème d'un autre angle m'a permis de trouver la solution ;)

Adn56 · Answer

salut, je ne connais pas le vba des derniéres versions d'office, mais à mon époque je passais par une concaténation :
cell(x,y).value = XX.day & "/" & XX.month &/& XX.year (XX la variable qui contient la date).
cordialement.

tyron2002 · Answer

Ton idée me paraissait pas mal mais voila le message qu'il me renvoi :"qualificateur incorrect"

Et que je déclare XX ( ma variable) en Date ou String ça ne change rien.
grosso modo voila ce que je fais :

Public vntIntervention As Date 
'( j'ai essayer avec String ca ne marche pas mieux )

Private Sub TxtDate_Change()

vntIntervention = TxtDate.Value

End Sub

Private Sub CmdFin_Click()

Cells(intL1, intC1).Value = vntIntervention

End Sub

Merci d'avance pour votre aide

Adn56 · Answer

arf, le pire c'est que je viens de regarder ce matin au taff une vieille source est j'allais te poster ce midi la soluce avec format 
Mais c'est toujours mieux de trouver par soi même 
++

tyron2002 · Answer

Merci quand même.

++

tyron2002 · Answer

Bon je relance ce sujet car la solution que j'ai trouvé marche très bien chez moi et mon excel 2007 mais pas chez un collègues avec excel 2003. J'ai lut des trucs comme quoi il faudrai mettre M/D/yyyy à la place de mm/dd/yyyy ça vous dit quelques choses ?

Adn56 · Answer

Salut, Utilise plutot ceci, car ce codage fonctionne trés bien.

Range("A2").NumberFormat = "d-mmm-yy"

Affiche par exemple : 01-juin-10

(code Excel 2002.)

++

tyron2002 · Answer

Range("A2").NumberFormat = "d-mmm-yy"


Change la mise en forme de la date mais ne résout pas le problème d'inversion entre le mois et le jour provenant de la norme américaine.

Adn56 · Answer

'inscrit la date (mois et jours inversé pour pouvoir filtrer la date en francais avec excel)
Range("a2").Value = Calendar1
' fonctionne grace à l'astuce de la mise en forme de la date (en/fr)
      Range("A2").NumberFormat = "d-mmm-yy"

Voila ce que j'ai dans ma macro et le résultat est OK (selection via une datetimepicker)
Tiens d'ailleur ce control fait buguer le classeur 
cela marchait bien y'a 1 an ! 

bon ben voila...++

Problème de date et textbox

9 réponses

Votre réponse

Discussions similaires