Sur un poste client le séparateur décimal de Visual Basic Editor est une virgule au lieu d'un point

La fonction Val sert à convertir en nombre une chaine de caractères commençant par un nombre comme ici :

Val(" 5 ancienne valeur") renvoie bien 5 et c'est donc correct.

Sinon tester la cellule avec IsNumeric par exemple …

Et Evaluate("N(A1)") renvoie bien 0 ! La fonction N renvoyant toujours 0 pour une cellule au format texte …

Citation:

Val(" 5 ancienne valeur") renvoie bien 5 et c'est donc correct.

La fonction VBA Val() se comporte comme elle doit le faire (elle n'a pas tellement le choix) mais le résultat ne correspond pas à mon besoin : si l'utilisateur saisit un commentaire dans la case je ne souhaite pas que le code considère qu'une donnée numérique à été saisie.

Après plusieurs tests l'utilisation IsNumeric qui n'est pas influencé par le séparateur système (Ouf !) convient pour ce que je souhaite faire

Code:

If IsNumeric(VariableTampon) Then Resultat = VariableTampon else 0

car Evaluate et Val utilisent le séparateur système et si j'intercale la fonction Replace(X,",",".") ça force le passage par le type String (conversion implicite) et ça ne me convient pas à 100%.
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 Sub regarde() Dim maVariable, Resultat1, z, Resultat2 ' As Variant implicite Dim Resultat3 As Double Dim MonRange As Range Dim MaTable Debug.Print "mon séparateur systeme est : " & Format(0, ".") & " et Application.DecimalSeparator : " & Application.DecimalSeparator Debug.Print "L'affichage est : " & Range("A1").Text 'Je fais un traitement de massse car je ne peux pas me permettre des accès répétés aux cellules une par une Set MonRange = Range("A1:C3") MaTable = MonRange maVariable = MaTable(1, 1) z = IsNumeric(maVariable) 'IsNumeric n'utilise pas le séparateur systeme Debug.Print "maVariable est de type " & TypeName(maVariable) & " et vaut: " & maVariable Resultat1 = Evaluate("N(" & maVariable & ")") 'Evaluate et Val utilisent le séparateur système Debug.Print "Evaluate(""N("" & maVariable & "")"") est de type " & TypeName(Resultat1) If Not IsError(Resultat1) Then Debug.Print " et vaut : " & Resultat1 Resultat2 = Val(maVariable) Debug.Print "Val(maVariable) est de type " & TypeName(Resultat2) & " et vaut: " & Resultat2 Resultat3 = 0 If IsNumeric(maVariable) Then Resultat3 = maVariable Debug.Print "Resultat3 via test sur IsNumeric est de type " & TypeName(Resultat3) & " et vaut: " & Resultat3 Stop ' pour examiner la fenêtre Variables locales End Sub
Fenêtre d'évaluation:

mon séparateur systeme est : , et Application.DecimalSeparator : .
L'affichage est : " 1.3"
maVariable est de type String et vaut: " 1.3"
Evaluate("N(" & maVariable & ")") est de type Double
et vaut : 0
Val(maVariable) est de type Double et vaut: 0
Resultat3 via test sur IsNumeric est de type Double et vaut: 0

mon séparateur systeme est : , et Application.DecimalSeparator : .
L'affichage est : 1.5
maVariable est de type Double et vaut: 1,5
Evaluate("N(" & maVariable & ")") est de type Error
Val(maVariable) est de type Double et vaut: 1
Resultat3 via test sur IsNumeric est de type Double et vaut: 1,5

Val est une fonction ne comprenant que le point comme séparateur décimal (cf aide VBA interne, oui je sais … :oops:),
exemple avec Windows configuré en français, la virgule étant le séparateur décimal système :

http://perso.numericable.fr/mpl/pic/VAL.gif

Effectivement, bien vu.

C'est à l'étape précédente, c'est à dire ici :
Code:

1 2 3 Set MonRange = Range("A1:C3") MaTable = MonRange maVariable = MaTable(1, 1)
que la conversion implicite (Evil parsing) via le séparateur Σ intervient.

Comme à la dernière étape de ta vidéo.

Et avec Evaluate de la fonction Excel N ? Aucun souci de mon côté …

Tu utilises 'directement' Evaluate dans la console et moi j'utilise une variable intermédiaire puis l'opérateur de concaténation "&" qui force la conversion en String.