Re tout le monde,
 
J'ai créé une petite application en VBA sous Excel pour pouvoir lire une base de données dans un classeur à l'aide d'une succession de userform.
 
Il me reste un seul truc à faire pour pouvoir achever ce programme, c'est de réussir à afficher les dates dans les textbox selon le format "dd/mm/yyyy".
 
Je m'explique, normalement si tout va bien, ce programme va se retrouver sur l'intranet du boulot. Petit hic, leur Excel est une version Anglaise.
 
Sur mon PC (Excel français) le prgm fonctionne bien il va rechercher les dates dans les cellules sous le format 21/04/2006 pour les réafficher dans les textbox sous la forme 21/04/2006. Par contre avec leur Excel en Anglais, la date apparaît dans le textbox sous la forme 04/21/2006!!!
 
J'ai essayé de définir le format d'affichage des textbox, mais çà ne marche pas... la date est toujour inversé.  
 
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy" )
TextBox1.Value = Range("C" & ListBox2.ListIndex + 4)
 
Est ce que quelqu'un connaît le truc?
 
 
 

Re
Essaye avec ceci:

@+

Re,
 
Je viens d'essayer avec ton code,
la textbox n'affiche plus rien, j'ai été obligé de rajoutter une petite ligne mais l'affichage des dates restent inchangé
 
pourtant j'ai bien défini mes cellules et la textbox avec le format "dd/mm/yyy"
 
Lorsque je vais saisir une date dans la textbox pas de problème, elle va apparaître dans la feuille de calculs au bon format.
Par contre lorsque le textbox affiche la valeur de la cellule, il l'inverse "mm/dd/yyyy"
 
Un vrai casse tête cette bestiole là...

Oups j'allais oublier le code
 
Dim MaDate As Date
 
MaDate = Range("C" & ListBox2.ListIndex + 4)
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy" )
TextBox1.Value = MaDate

Salut nullos,
 
Si tu remplis ta textbox avec madate comme ceci il est normal qu'il te mettes exactement la valeur que tu as dans madate (le textbox ne conserve pas le format). il faut définir ton format  
- soit au moment ou tu remplis la textbox :
textbox1.value=format(madate,"DD/MM/YY" )
- soit après remplissage
textbox1.value=madate
textbox1.value=format(textbox1.value,"DD/MM/YY" )
- soit encore dans ta variable de date
dim madate as date
madate=format(range("A1" ).value,"DD/MM/YY" )
 
Je viens de retester le code que je t'avais donné plus ceux ci-dessus et tout marche sachant que je pars d'une cellule dont le format de date est mm/jj/yyyy.
@+