Is numeric et para. régionnaux

[Lione]

Bonjour le forum,

J'ai un problème avec la macro suivante :

If Not IsNumeric(Me.TextBox1) Then
MsgBox "La quantité n'est pas valide !", , "Attention"
Exit Sub
End If

En fait, sur mon PC portable ça roule mais pas sur mon ordi au bureau. Ceci provient du paramétrage régional avec soit la "virgule" ou le "point". Quelqu'un pourrait il m'indiquer le bout de code pour agir au niveau de la macro ?

Merci pour votre aide.

Salutations Lio.

 

[porcinet82]

Re : Is numeric et para. régionnaux

Salut Lio,

Il y a certainement plus simple, mais bon ma solution a l'air de fonctionner :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1 Like "*.*" Then
    Me.TextBox1 = Left(Me.TextBox1, InStr(1, Me.TextBox1, ".") - 1) & "," & Right(Me.TextBox1, Len(Me.TextBox1) - InStr(1, Me.TextBox1, "."))
End If
If Not IsNumeric(Me.TextBox1) Then
    MsgBox "La quantité n'est pas valide !", , "Attention"
    Exit Sub
End If
End Sub

@+

 

[Lione]

Re : Is numeric et para. régionnaux

Bonjour porcinet et bon anniversaire !

Merci pour le code. Je teste tout ça et je te tiens au courant cet aprem.

Salutations Lio.

 

[Ti_]

Re : Is numeric et para. régionnaux

tu peux procéder ainsi avec une petite fonction qui mettra toujours le bon séparateur en fonction des critères actuels

Function Numerique$(ByVal Num$) 'Ti
Dim DSep$, Sep$
  DSep = Mid$(2.1, 2, 1)
  Sep = IIf(DSep = ".", ",", ".")
  Numerique = Replace(Num, Sep, DSep)
End Function
If Not IsNumeric(Numerique(Me.TextBox1)) Then

il serait plus simple encore d'ajuster ce séparateur directement lors de la saisie dans le TextBox

 

[Lione]

Re : Is numeric et para. régionnaux

Bonjour le forum, Ti et porcinet,

Juste un merci pour vos réponses.

Salutations Lio.