ecrire 010107=01/01/2007 dans un textbox

[la croisée des pains]

bonjour à tous

comment ecrire dans un usf dans un txtbox la date sous se format 010107 et lors du transfert vers une feuille , elle s'écrit comme ceci 01/01/2007

merci de votre aide

voici un bout de mon code:

Private Sub CmdValider_Click()
Dim nbligne, MsgErreur
Dim Remise As Double
Dim Remise2 As Double


If TxtN°Facture.Value = "" Then
MsgErreur = MsgBox(vbTab & "Saisissez un numéro de facture !", vbOKOnly + vbExclamation, "AJOUT IMPOSSIBLE, DONNEE OBLIGATOIRE")
TxtN°Facture.SetFocus
Exit Sub
End If
If CbxClient.Value = "" Then
MsgErreur = MsgBox(vbTab & "Choisissez un client !", vbOKOnly + vbExclamation, "AJOUT IMPOSSIBLE, DONNEE OBLIGATOIRE")
CbxClient.SetFocus
Exit Sub
End If

With Sheets("récap")
nbligne = .Range("A65536").End(xlUp).Row + 1


If OptBoulangerie = True Then
.Unprotect
.Range("A" & nbligne) = TxtN°Facture
.Range("B" & nbligne) = CDate(Me.TxtDate.Value)
.Range("C" & nbligne) = CbxArticle_Boul.Value
.Range("D" & nbligne) = CDbl(TxtQuantite_Boul.Value)
.Range("E" & nbligne).NumberFormat = "#,##0.00€"
.Range("E" & nbligne) = CDbl(TxtPrix_Boul.Value) 'format(cdbl(txtprix_boul.value),"#,##0.00€")
.Range("L" & nbligne) = CDbl(CbxTva_Boul.Value)
.Range("O" & nbligne) = CbxClient.Value


et ainsi de suite.... le code est trop long à mettre .


merci de votre aide

laurent

 

[la croisée des pains]

Re : ecrire 010107=01/01/2007 dans un textbox

re a tous,

Rien à comprendre,

sous excel 2003, c'est ok sa marche.
sous excel 2007, ca plante......
je vire le Trim, idem sa plante sur le mid...
ou est le problème?????

Dim DateString As String

Dim Derlgn As Integer
If Me.TxtDate = "" Then Me.TxtDate.SetFocus: Exit Sub
DateString = (TxtDate.Text)
Derlgn = Range("B500").End(xlUp).Row + 1
Range("B" & Derlgn) = DateSerial(mid(DateString, 5, 2), mid(DateString, 3, 2), mid(DateString, 1, 2))
Me.TxtDate = ""

 

[Compte Supprimé 979]

Re : ecrire 010107=01/01/2007 dans un textbox

Salut La croisée,

Vérifie tes références dans l'éditeur VBA, il en manque une à coup sûr 😉

 

[la croisée des pains]

Re : ecrire 010107=01/01/2007 dans un textbox

re,

merci à tous
problème résolu..
c'était bien une référence qu'il me manquait:MSCOMCT2.OCX

merci à tous