Discussion :

[EricBOG]

Bonjour à tous,

J'ai un fichier avec des nombres. Assez étonnant pour du excel...
Le problème est que ces nombres sont de formats différents car provenant de sources différentes. Ils sont différents dans la syntaxe (avec des espaces, des points, des virgules ou rien) mais aussi je pense dans la définition de leur format.

J'ai essayé de les bidouiller un peu, mais rien à faire, du coup la macro plante ("Type Mistmatch") sur certain "chiffre" lorsque je lui demande de faire une opération arithmétique.

Quelqu'un aurait il une formule magique pour tout remettre d'équerre?

Merki!

Eric

[casefayere]

Bonjour,

Quelqu'un aurait il une formule magique pour tout remettre d'équerre?

oui "Abracadabra"

Plus sérieusement, il faudrait plus de renseignement, style combien de colonnes, lignes ou cellules concernées. Les formats correspondent-ils à des formats "Nombre" mais s'ils sont différents, quelles sont les sources (Excel, csv.....)

[Invité]

bonjour,
il faudrait des exemples de nombres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Debug.Print ConvertNumerique("1 . 10")
Debug.Print ConvertNumerique("1.10")
Debug.Print ConvertNumerique("1,10")
End Sub
Function ConvertNumerique(v) As Double
Dim t
t = Replace(v, " ", "")
t = Replace(t, ".", ",")
If IsNumeric(t) = True Then ConvertNumerique = t: Exit Function
t = Replace(t, ",", ".")
If IsNumeric(t) = True Then ConvertNumerique = t: Exit Function
End Function

[EricBOG]

Voici le fichier en question. Colonne E

Merci