Compatibilité Valeur, Correction du séparateur décimal

[Bernard_XLD]

Bonjour le forum

Avec l'autorisation de David, voici, en son hommage, une fonction personnalisée de Ti_ (Thierry Pourtier) remettant le bon séparateur décimal dans une valeur quel que soit le séparateur décimal utilisé.
Utilisable par VBA ou formule, compatible toutes versions d'Excel depuis Excel 97.
Citation de Ti_ parlant du séparateur décimal: "la fonction Val n'a que faire de ces subtilités internationales puisqu'elle n'utilise jamais que le point, quel que soit le système utilisé, et je trouve ça très bien ainsi."

Bien cordialement, @+

Function Valeur#(ByVal StrVal$)
'remettre le bon séparateur décimal dans une valeur quel que soit le paramètre régional
'by Ti_ (Thierry Pourtier)
Valeur = Val(Replace(StrVal, ",", "."))
End Function

Deux petites variations pour récupérer la partie entière ou la partie décimale d'une valeur quel que soit le séparateur utilisé à l'origine.

Function Partie_Entiere#(ByVal StrVal$)
Partie_Entiere = Val(Replace(StrVal, ".", ","))
End Function
Function Partie_Decimale#(ByVal StrVal$)
Partie_Decimale = Val(Replace(StrVal, ",", ".")) - Val(Replace(StrVal, ".", ","))
End Function