Format Date et Textbox VB excel

[ced48]

Bonjour

J'ai un souci sur les formats de date lors de la convertion de Vb a excel pour 2 textbox

La valeur entrée est par exemple 01/03/2010
la valeur renvoyée dans la cellule excel est 03/01/2010

ici les textbox concernées sont TextBox1 et Textbox6

mon code :

Private Sub CommandButton1_Click()
With Sheets("SU")
'création du N° de Ligne
Set myRange = .Range("A2:K" & .Range("A65536").End(xlUp).Row)
answer = Application.WorksheetFunction.Max(myRange)
Derlig = .Range("A65536").End(3)(2).Row 'Recherche de la derniere Ligne vide
'Recopie le formulaire dans la feuille Base
.Range("A" & Derlig) = TextBox1.Value 'Date
.Range("B" & Derlig) = TextBox2.Value 'NOM
.Range("C" & Derlig) = ComboBox1.Value 'Conseiller
.Range("D" & Derlig) = TextBox4.Value 'Motif Demande
.Range("E" & Derlig) = ComboBox2.Value 'type
.Range("F" & Derlig) = ComboBox3.Value 'Forme
.Range("G" & Derlig) = TextBox8.Value 'montant chq
.Range("H" & Derlig) = TextBox7.Value 'Montant chq service
.Range("I" & Derlig) = TextBox5.Value 'montant prêt
.Range("J" & Derlig) = TextBox6.Value 'date echeance pret
End With
Unload Me

End Sub


Merci de votre aide

 

[MJ13]

Re : Format Date et Textbox VB excel

Bonjour Ced

Essaye:

Range("A" & Derlig) = format(TextBox1.Value,"mm/dd/yyyy")

Idem pour textbox6

 

[Pierrot93]

Re : Format Date et Textbox VB excel

Bonjour ced, Michel🙂

Essaye peut être aussi la fonction "cdate" :

Range("A" & Derlig) = CDate(TextBox1.Value)

bonne fin d'après midi
@+