Bonjour
Je suis débutant et j’ai un problème en vba solidworks j’explique :
J’ai 2 textbox ou je rentre des valeurs pour la suite de mon programme, mais avant de continuer la suite de programme je souhaite vérifier les valeurs rentrées pour qu’elles ne me créent pas d’erreur par la suite j’ai donc commencé un début de routine mais il fait n’importe quoi


Dim fi1, fi2 as double

fi1 = CDbl(TextBox6.Value)
fi2 = CDbl(TextBox7.Value)

If fi1 < 2.7 Xor fi1 <= 3.3 And fi2 < 2.7 Xor fi2 <= 3.3 Then
Programme…….
……….programme
Else: reponse = MsgBox "fi1 ou fi2 ne correspondent pas à la norme",  vbYesNo
   If reponse = vbNo Then
        erreur = True 'si message d'erreur alors stop procedure
        Exit Function
End If

Quand je rentre dans mes textbox des chiffres entre 2,7 et 3,3 il me renvoie directement vers le Else  
Voila en espérant avoie été claire
merci

bonjour
une idée en passant!
si tu faisais
fi1 = CDbl(remplace(TextBox6.text , "," , "." )) ça devrait aller mieux déja !
puisque dans ton test tu utilises le point comme séparateur décimal et la virgule dans la saisie

si c'est la solution, penser : REPONSE ACCEPTEE

ok mais j'ai un pb avec le "remplace" sub ou function non definie

logique !!!
avec mes excuses
ce n'est pas remplace mais Replace

si c'est la solution, penser : REPONSE ACCEPTEE

sa ne fonctionne pas il me met erreur d'execution

quel est le séparateur décimal  déclaré dans les parametres régionaux ?
de plus il te la met où cette erreur ?


si c'est la solution, penser : REPONSE ACCEPTEE

moi je lui interdit de mettre des points
et l'erreur il me la met au niveau de
fi1 = CDbl(replace(TextBox6.text , "," , "." ))
il met erreur d'execution 13

Merci pour l'info sa fonction a la perfection
C’était les parenthèses qui me faisais tout planter
Encore merci a++