[XL-2010] Fonction pour formater une Textbox (Date)

et même mieux
au cas ou utilisation d'un pc portable sans pavé numérique donc utilisation des touche haute en majuscule
voila la fonction corrigée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Const tel = "telephonne"
Public Const mYdAte = "mydate"
Public Function ForMattexT(ctrl, formats, key) As String
  Dim contenu As String
  'Au cas ou l'on aurait oublié de mettre en majuscule au cas de l'utilisation des touches haute
      If key = 20 Then Exit Function
     contenu = ctrl
        If Not IsNumeric(Right(contenu, 1)) Then contenu = Mid(contenu, 1, Len(contenu) - 1)
    Select Case formats
    Case "telephonne"
        Select Case Len(contenu)
          Case 2, 5, 8, 11: contenu = contenu & " "
        Case Is > 14:  contenu = Mid(contenu, 1, 14)
        End Select
    Case "mydate"
          Select Case Len(contenu)
        Case 2, 5: contenu = contenu & "/"
        Case 10
            If Not IsDate(contenu) Then
                contenu = ""
                MsgBox "cette date n'est pas valide "
            End If
       contenu = Format(contenu, "dddd d mmmm yyyy")
        Case Is > 10: If Not IsNumeric(Left(contenu, 3)) Then contenu = Mid(contenu, 1, Len(contenu) - 1)
 
         End Select
    End Select
    If key = 8 Or key = 46 Then contenu = ""
    ForMattexT = contenu
End Function

voila
;)