Bonjour
Tiens j'avais récupéré ce code pour mettre automatiquement les / dans une date lors de la saisie de ta date
Private Sub Textbox1_Change()
If Len(Me.Textbox1.Value) = 3 Then
If Right(Me.Textbox1.Value, 1) signe_différent '/' Then
Me.Textbox1.Value = Left(Me.Textbox1.Value, 2) & '/' & Right(Me.Textbox1.Value, Len(Me.Textbox1.Value) - 2)
End If
ElseIf Len(Me.Textbox1.Value) = 6 Then
If Right(Me.Textbox1.Value, 1) signe_différent '/' Then
Me.Textbox1.Value = Left(Me.Textbox1.Value, 5) & '/' & Right(Me.Textbox1.Value, Len(Me.Textbox1.Value) - 5)
End If
End If
End Sub
Comme cela juste avec un test en sortie pour verifier qu'il s'agisse bien d'une date tu as toujours ta date au format jj/mm/aaaa
Ensuite juste un range('A1')=cdate(textbox1.value) fera l'affaire
Message édité par: Pascal76, à: 17/01/2006 16:11