Bonjour Ti, re Pascal, re Jerome, le Forum
Interressante Function Ti. Pour ma part j'ai testé sur un PC 100% en US et je n'ai pas de souci avec le fichier posté par Pascal.
Et sinon à l'époque pour une démo pour notre copain Vériland, qui m'avait posé une colle pour utiliser le '.' du pavé numérique, j'avais déniché ceci :
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Solution de Cedric sur le MPFE
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
C'est pour avoir en temps réel de saisie le bon séparateur. Mais ce peut être un complément de la Function de Ti.
Un dernier point interressant pour faire suite à mon précédent Post, à l'époque d'Excel 4 (ou 5 je suis plus certain) on pouvait paramétrer localement pour Excel les Paramètres Régionaux indépendemment de ceux de Windows... Cette option avait été ensuite abandonnée depuis Excel 95 / 97 / 2000... Et je note maintenant sa ré-aparition sous Excel 2002 et 2003...
A priori, c'est un souci de plus à gérer pour les développeurs... Car ce paramètrage local semble primer sur la saisie en Cellule par rapport aux paramétrages de Windows mais pas sur les ActiveX de UserForm (Of Course)...
Pour moi perso, sur des applis qui tournent en réseau avec du Numérique en saisie par UserForm, afin d'éviter bien des surprises, je passe par une petite routine comme suit :
Option Explicit
Sub MacroDeLancement()
Dim UserChoiseSystemSep As Boolean
On Error Resume Next 'Si nous sommes sur une version antérieure
With Application
UserChoiseSystemSep = .UseSystemSeparators
.UseSystemSeparators = True
End With
On Error GoTo 0
LeOuLesMacros
On Error Resume Next ' Si On est sur une version antérieure
Application.UseSystemSeparators = UserChoiseSystemSep
End Sub
Bonne Journée
[ol]@+Thierry[/ol] 'D'Day - 11 sans Virgule LOL'