Discussion :

[pal017]

Bonjour,

J'aimerai convertir les virgules en point de mes données depuis un import Excel

Cela marche avec la fonction ci-dessous quand mes données sont en format Texte hors les données que j'importe seront toujours en numériques.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Option Compare Database
 
Public Function Remplacer(ByVal Texte As String) As String
Remplacer = Replace(Texte, ",", ".")
End Function

Est-il possible de convertir automatiquement les données importés d'un feuille Excel en Texte ou que la formule ci-dessus fonctionne avec des données numériques ?

Merci.

[zibi7]

Bonjour,

La fonction replace prend pour paramètres du texte mais sinon tu peux convertir avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CStr(expression)
L'argument (argument : valeur qui fournit des informations à une action, un événement, une méthode, une propriété, une fonction ou une procédure.) obligatoire expression peut correspondre à n'importe quelle expression de chaîne  ou expression numérique (expression numérique : expression dont le résultat après évaluation est un nombre. L'expression peut être une combinaison quelconque de variables, de constantes, de fonctions et d'opérateurs.).

@+

[LE VIEUX]

bonsoir,
pourquoi veux-tu remplacer la , par le point. quel est le problème ?

a moins d'intégrer un chiffre importé avec virgule dans un instruction vba SQL, auquel cas il faut effectivement la remplacer par un . sinon VBA gère seul le problème normalement.