[Résolu] UserForm : Date et Format

Tsoin42 · 30 Mai 2013

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 :

Code:

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 · 30 Mai 2013

Re : UserForm : Date et Format

Re

A tester:

Code:

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 · 30 Mai 2013

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

[Résolu] UserForm : Date et Format

Tsoin42

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Tsoin42

XLDnaute Nouveau

Discussions similaires