Discussion :

[SybVicious]

Bonjour,

j'utilise une macro qui me permet de récupérer une date voulue grace à un userform contenant 3 textebox (jour, mois et année) et de la recopier dans une cellule une fois saisie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'remplissage date
ActiveCell.Value = TextBox1.Value & "/" & TextBox2.Value & "/" & Right(TextBox3.Value, 2)
With Selection
    .HorizontalAlignment = xlRight
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With

voila, je viens de tomber sur quelquechose d'intriguant, quand je fais des tests en rentrant 31 01 2008 cela marche parfaitement (il recopie bien 31/01/08 dans la cellule), par contre quand je rentre 01 02 2008, il recopie 02/01/08 au lieu de 01/02/08! il m'inverse le mois et le jour sans que je lui demande quoi que ce soit :s et pourtant le format des cellules est identique!
Je ne comprends pas, merci par avance de votre aide!!!

[mathieu44800]

Bonjour,

Essayes Format(TADATE AVEC SLASHS, "DD/MM/YYYY")

ou tapes Format et appuies sur F1 pour plus d'explications...

A+

[AlainTech]

Je dirais plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = CDate(TextBox1.Value & "/" & TextBox2.Value & "/" & Right(TextBox3.Value, 2))

[jijie]

Voila ma réponse si j'ai bien compri le problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
TextBox2.MaxLength = 10
Valeur = Len(TextBox2)
 
If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/"
If Len(TextBox2) = 10 And Not IsDate(TextBox2) Then TextBox2 = ""

[Invité]

Bonsoir,

il y a aussi, je pense, cette possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
mydat = TextBox1.Value & "/" & TextBox2.Value & "/" & Right(TextBox3.Value, 2)
mydat = DateSerial(Right(mydat, 4), Mid(mydat, 4, 2), Left(mydat, 2))
ActiveCell.Value = mydat

[SybVicious]

J'ai pris la réponse la plus simple, celle de AlainTech! Merci infiniment, ca marche comme sur des roulettes