Date (inversion des jours et des mois)

Question

Salut,



 


Voil&#224; mon pb. J&#146;essai de faire un prog sur VBA. J&#146;ai dans mon userform plusieurs textbox qui permettent de renseigner des dates. Ensuite, je renvoie les dates dans un tableau excel qui me permet de comparer mes dates, calculer le nombre de jours entre deux dates, etc.



 


Pour cela, j&#146;ai fait : 
sub textboxdate1_change
range (&#171; A1 &#187;)=textboxdate1.value


End sub



Seulement, quand je saisis par exemple 02/11/2005 dans ma textbox &#231;a me renvoi sur excel (cellule A1) le 11 f&#233;vrier 2005. Alors que quand je saisis 25/11/05 et bien l&#224; j&#146;ai le r&#233;sultat souhait&#233; c&#146;est &#224; dire le 25 novembre 2005. Bref parfois &#231;a inverse les jours et les mois.



 


Pourtant sur excel, le format de ma cellule est bien jj/mm/aaa. Je me dis que j&#146;ai mal configurer VBA.



 


Est-ce que quelqu&#146;un &#224; une solution?



 


Merci d&#146;avance

Faut bien commencer un jour...

jpleroisse · Answer

Bonjour,

Essaye ceci.



Private Sub TextBox1_Change()

Range("A1").Select

Selection.NumberFormat = "d mmmm yyyy"

Range("A1") = textboxdate1.value


End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez sur R&#233;ponse Accept&#233;e.

cs_clamor · Answer

Salut,

merci pour ton aide.

Malheureusement &#231;a marche pas. La diff&#233;rence, c'est qu'au lieu d'inverser le 11/02/2005 en "02/11/2005", &#231;a l'inverse en "2 novembre 2005".

Faut bien commencer un jour...

Renfield · Answer

Changeons alors le format utilisé...

Private Sub TextBox1_Change()
Range("A1").Select
Selection.NumberFormat = "dd/mm/yy"
Range("A1") = textboxdate1.value
End Sub

cs_clamor · Answer

C&#146;est dingue ! Je mets tout &#231;a et pourtant &#231;a m&#146;inverse quand m&#234;me le jour et la date. Si je rentre 02/11/2005 et que je pr&#233;cise le format &#171; dd/mm/aaaa &#187; de la cellule excel, &#231;a m&#146;envoi sur excel une date sur le bon format (&#171; dd/mm/aaaa &#187;) mais en inversant le jour et le mois souhait&#233; savoir 11/02/2005. 



 


J&#146;ai l&#146;impression que VBA est configur&#233; pour comprendre les dates forc&#233;ment sous le format &#171; mm/dd/aaaa &#187; ! C&#146;est possible ?

Est-ce qu&#146;on peut changer le format non pas de la cellule excel mais de la textbox de vba ?

Faut bien commencer un jour...

Renfield · Answer

ta manipulation est parfaitement illogique :
dd/mm/aaaa  => Day Month Annee
soit tu met dans une langue, soit tu mets dans l'autre...

cs_clamor · Answer

Ah oui, je me suis tromp&#233;.. je voulais dire &#171; dd/mm/yyyy &#187;. C&#146;est bien le format que j&#146;ai mis mais &#231;a marche pas &#133; (c&#146;est &#224; ni rien comprendre ???)

Faut bien commencer un jour...

djatomix1 · Answer

Ah je suis content de trouver le meme problème que moi, j'ai un tableau qui se rempli tous les jours en date du jour, et les 12 permiers jours il inverse le mois et les 13 jours suivant, tout va bien, ça correspond bien à ma formule
    UserForm4.datefiche.Text = Format(Date, "dd/mm/yyyy")

c'est embettant car aujourd'hui on est le 13 et tout marche normalement, je ne peux trouver mon erreur.

http://mega-hertz.com

Date (inversion des jours et des mois)

7 réponses

Discussions similaires