TextBox et dates formatées, une solution possible ?

[david84]

Re : TextBox et dates formatées, une solution possible ?

Re Marc,
Bon ton code fonctionne sans planter et est vraiment au point.
Donc maintenant tout ce que l'on peut te suggérer serait éventuellement dans le but de l'optimiser.

Dans cette optique, il y a peut-être possibilité dans la fonction ConvJour de gagner du temps de traitement sur la partie

    If Not IsNumeric(Jr) Then
        For i = 97 To 122
            If InStr(1, Jr, Chr(i)) > 0 Then Jr = Replace(Jr, Chr(i), "")
        Next i
    End If

où là tu boucles potentiellement sur toutes les minuscules (donc 26 fois au plus).

Peut-être que tu pourrais plutôt boucler sur la longueur de Jr en identifiant directement l'ascii du caractère, du type :

    If Not IsNumeric(Jr) Then
        For i = 1 To Len(Jr)
            If Asc(Mid(Jr, i, 1)) >= 97 And Asc(Mid(Jr, i, 1)) <= 122 Then Jr = Replace(Jr, Mid(Jr, i, 1), " ")
        Next i
    End If

Teste de ton côté pour voir ce que cela donne (chez moi cela semble fonctionner mais je n'ai fait que quelques tests vite fait).
A+