Format csv calcul impossible cnum déjà test
Bonjour,
j'ai importer un fichier csv
par contre, les montants sont formater comme du texte !
exemple :
2(espace)520(point)20
soit 2 520.20
donc quand je fais mes calculs cela ne marche pas
j'ai déjà essayer de convertir, et la formule cnum
mais sans succès
merci d'avance
Bonjour,
Ce n'est pas le format texte qui pose problème, mais le point à la place de la virgule.
Essais en incorporant ceci en début de calcul :
=SUBSTITUE(tacellule;".";",";1)exemple si une valeur en A1 :
=SUBSTITUE(A1;".";",";1)*2Cordialement,
Apparement c'est l'espace entre le chiffre des milliers et celui des centaines qui pose problème.
Par contre, même avec SUPPRESPACE(), ou un autre substitue() il ne veut pas l'enlever.... Et même un TROUVE() ne détecte pas cet espace.
J'ai essayé en modifiant le format de la cellule, en multipliant par 1 pour le passer en numérique, ... rien ne passe lol
Par contre, si je click dans la cellule et que j'enlève l'espace, tout marche bien
Comment réalises-tu ton importation ? à mon avis il y a peut-être matière à creuser par là ?
Cordialement,
Bonjour,
Ce qu'il faut pour t'aider ce n'est pas deux fois ton classeur mais une fois le fichier CSV.
A+
il s'agit d'un fichier d'exportation classique,
c'est un truc de fou !!!
merci en tout cas
Comment veux-tu qu'ont t'aide si ont a pas ton "truc de fou", même partiel.
EDIT : Il n'y a pas de fichier d'importation classique, il sont tous différents.
Quand je dis qu'il sont tous différent j'en ai encore une preuve, ce ne sont pas des espaces que tu à entre les nombres mais un caractère spécial.
Copie cette procédure dans un module, tu peu la lier à un bouton ou un raccourci.
Sub AdapterColonneG()
Dim A
Dim Lig As Integer
With ActiveSheet
For Lig = 2 To Range("G65536").End(xlUp).Row
Cells(Lig, "G") = Replace(Cells(Lig, "G"), Chr(160), "")
Cells(Lig, "G") = Replace(Cells(Lig, "G"), ".", ",")
Next Lig
End With
End SubAprès avoir importer ton fichier lance la macro.
A+