[Résolu] UserForm : Date et Format

[Tsoin42]

Bonjour le forum,

Je viens de me rendre compte d'un bug très chiant : Quand je rentre une date dans mon TextBox de l'UserForm, il se change en format américain une fois placé sur le classeur.

Exemple : 6 décembre 2012 devient 12 juin 2012.

J'ai lu pas mal de posts (avec des format, Cdate, etc) sur le sujet le problème est que je ne sais pas oùplacer ces solutions.

J'ai refait un mini fichier avec une partie de mon code (en PJ) et voici ce que j'ai :

Private Sub CommandButton1_Click()
derlin = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & derlin) = TextBox1.Value
Range("B" & derlin) = TextBox2.Value
Unload Me
End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Private Sub TextBox1_Change()
Dim TextBox1 As Date
End Sub

Cordialement,

Tsoin

 

[pierrejean]

Re : UserForm : Date et Format

Re

A tester:

Private Sub CommandButton1_Click()
derlin = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & derlin) = CDate(TextBox1.Value)
Range("B" & derlin) = TextBox2.Value
Unload Me
End Sub

 

[Tsoin42]

Re : UserForm : Date et Format

Bonjour PierreJean,

Ta méthode fonctionne très bien, j'ai cherché 30 minutes pour un truc bête et méchant !

Merci à toi, bonne fin de journée,

Tsoin