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
Code:
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 :
Code:
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+