Problème TextBox: Définir chaine de caractère

Bonjour,

J ai la version Excel 97 et je travaille sous VBA

Mon problème et que actuellement sous une Userform j ai une TextBox et dans cette TextBox je rentre des dates sous cette forme jour/mois/année .

J arrive a mettre les slach automatiquement .
Mais mon problème est que je veut transférer ces dates sous une feuille de mon classeur a une case précise. Sa marche en partie mais pas comme il faut. C est a dire actuellement quand je tape par exemple la date du 10/06/2010.

Sous ma feuille excel sort en ligne 7: le chifres1 puis en ligne 6: le chiffres10 puis en ligne 5 : 10/ etc ... jusqu a la ligne 1 ou j aurais la date entière.

En clair actuellement dés que je tape quelque chose dans ma TextBox cette valeur est envoyé sous une feuille alors que moi je veut que la valeur de la TextBox sois envoyé sous une feuille et une case précise que lorsque que j ai tapé toutes la dates .


Voici ma formule que j ai mis pour cette TextBox y a un problème quelque part .


Private Sub TextBox1_Change()
Dim valeur As Byte
TextBox1.MaxLength = 10
valeur = Len(TextBox1)
If valeur = 2 Or valeur = 5 Then TextBox1 = TextBox1 & "/"
End If
End Sub



Dim valeur As Byte
With Sheets("Détail matériel")
TextBox1.MaxLength = 10
valeur = Len(TextBox1)
If valeur = 0 Or valeur = 10 Then TextBox1 = TextBox1 & "date entière"
.Range("d2").Insert (xlShiftDown)
.Range("d3").Copy
.Range("d2").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
.[D2] = TextBox1
End With
End If
End Sub


Le problème vient de la 2ème partie a partir de Dim valeur As Byte.

Merci d avance