bonjour jyll jacky le forum tu peus faire comme cela Dim Chge As Boolean
Private Sub DATE1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 8
Chge = True
Case Is = 13, 96 To 105
Case Else
KeyCode = 0
End Select
End Sub
Private Sub DATE1_KeyUP(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 46
Chge = True
DATE1 = ''
End Select
End Sub
Private Sub DATE1_Change()
If Not Chge Then
With DATE1
Select Case Len(.Text)
Case 2, 5
.Text = .Text & '/'
End Select
End With
Else
Chge = False
End If
End Sub' dans proprietes de la textbox maxlength =10 caracteres maxi . au debut de ton module oublie pas Dim Chge As Boolean ... petite remarque il faut declarer les variables explicitement le code est plus claire salutations ps je rajoute ton fichier [file name=planar1.zip size=20744]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planar1.zip[/file]
Message édité par: excalibur, à: 02/01/2006 10:06