Espace des montants en euros

Bonjour,

j'ai du importer des tableaux sous excel via ocr et me retrouve avec pleins de montant style "25 371 ,49"

Ceci étant dit il me faudrait corriger une multitude de ligne et je souhaiterais savoir si c'est possible de demander à excel via vba de supprimer dans une colonne les espaces (enfin les montants concernés) afin d'avoir in fine 25371,49 et que ce soit correctement reconnu par Excel?

Meri par avance pour votre aide

Bonne journée

Bonjour.

SUBSTITUE devrait faire l'affaire en deux fois : un pour le caractère "espace" et un pour le caractère "espace incécable"

=SUBSTITUE(SUBSTITUTE (A1;CAR(32);"");CAR(160);"")

@ bientôt

LouReeD

Bonjour Darkangel.

Tu peux sélectionner ta colonne, faire un clic droit, sélectionner "Format de cellule" puis "nombres"

Bien cordialement.

Merci pour ce retour

mais j'aurais besoin d'un tout petit peu plus d'assistance pour la partie substitute en deux étapes svp

Sub Replace()

    Dim rng As Range, cell As Range
    Set rng = Sheets("Sheet1").Range("H9:A251")

    For Each cell In rng
        cell = WorksheetFunction.Substitute(cell, ",", ";")
    Next
End Sub

le changement en format nombre ne change rien

Bonjour,
Pour le principe. A adapter !
Cdlt.

Public Sub ConvertTextInNumber()
Dim ws As Worksheet, tbl As Variant, i As Long, j As Long
    Set ws = Worksheets("Sheet1")
    tbl = ws.Range("A9:H251").Value
    For i = LBound(tbl) To UBound(tbl)
        For j = LBound(tbl, 2) To UBound(tbl, 2)
            If tbl(i, j) <> "" Then
                tbl(i, j) = Replace(tbl(i, j), ".", ",")
                tbl(i, j) = Replace(tbl(i, j), Chr(32), "")
                tbl(i, j) = Replace(tbl(i, j), Chr(160), "")
                tbl(i, j) = CDbl(tbl(i, j))
            End If
        Next j
    Next i
    With ws.Range("A9:H251")
        .Value = tbl
        .NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 ;"
    End With
End Sub

Merci jean-eric

toutefois il ne s'agit pas de texte mais d'espace entre chiffre indiquant un montant.

aussi c'est bien la fonction substitute qui je pense doit etre applique mais ne sait pas trop comment m'y prendre (cf mon code d'avant)

Substitue sous feuille Excel =Replace sous vba...

@ bientôt

LouReeD