VBA - DATE PB

VBA - DATE PB - VB/VBA/VBS - Programmation

Marsh Posté le 24-07-2006 à 10:51:39    

Salut à tous,
 
 
Voilà mon problème j'utilise VBA sous Excel, j'ai créer un userform ou l'utilisateur doit remplir  
une date dans une textbox.  
Il y a un bouton de type valider, qui ensuite renvoit la valeur de la textbox vers une cellule  
 
( ex: Range("A1" ).value = textbox1.value )
 
Mais voilà le BUG:
 
Par exemple l'utilisateur inscrit dans le textbox commme date 02/05/2006 et lorque l'on valide la date reportée dans la cellule devient 05/02/2006.  
 
Lorsque l'on ouvre à nouveau le userform, la valeur de la textbox est 05/02/2006 (normal) mais si l'on revalide la date reportée dans la cellule est à nouveau inversée : 02/05/2006 !
 
 
A chaque validation (report de valeur), le jour et le mois sont constamment inversé !
 
 
(Bien sur cela ne le fait pas sur des date avec un jour sup. à 12 (20/02/2006 par ex))
 
 
 
D'ou vient ce bug et surtout quelle est la solution ?

Reply

Marsh Posté le 24-07-2006 à 10:51:39   

Reply

Marsh Posté le 24-07-2006 à 10:55:29    

il s'agit du format de ta date, en fr ou en ang. Je peux te proposer de faire non pas 1 mais 3 txtbox, avec des / entre chaque, avec une gestion au final de concaténation du style
date_totale = jour & " / " & mois & "/" & annee

Reply

Marsh Posté le 24-07-2006 à 11:01:48    

Force la cellule de ta feuille au format jj/mm/aaaa. et avant de mettre la valeur dans la cellule affecte ton textbox à une varaible au format date...
En clair ca donne ...
Dim MaDate as date
MaDate=textbox1.value
 
Cells(x,y).select
Selection.NumberFormat = "dd/mm/yy"
.cells(x,y)=MaDate
 
Ca devrait fonctionner

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed