Supprimer un espace après un chiffre

Bonjour,

J'ai un fichier obtenu suite à une exportation via un logiciel comptable. Le problème est que les Chiffres sont suivis d'une espace donc ces chiffres ne sont pas considérés comme des chiffres alors il m'est impossible d'appliquer des formules.

J'ai joint la section fautive du fichier, car j'ai tenté tous les moyens trouvés sur les forums et je n'ai toujours pas réussi à trouver la solution à mon problème...

J'ai actuellement Excel 2013 FR.

Merci de votre aide.

Nicholas

Bonjour le forum,

C6 :

=SUPPRESPACE(SUBSTITUE(A6;CAR(160);""))*1

Bonjour,

Ce que tu appelles "Espace" est en fait un "Espace insécable"

Espace a pour code 32

Dans ton fichier, les espaces ont un code 160

Dans une cellule vide, tu mets cette formule :

=car(160)

Tu sélectionnes cette cellule, tu fais copier

Puis, toujours dans la même cellule, tu fais "Collage Spécial", "Valeurs"

Tu sélectionnes l'espace ainsi collé (tu rentres dans la barre de formules, puis tu sélectionnes cet espace, que tu copies (Ctrl + C)

Tu sélectionnes la colonne A

Tu fais Ctrl + H (Edition/Remplacer)

Dans Chercher, tu colles cet espace, et dans Remplacer par, tu ne mets rien

Et tu valides...

(c'était pour éviter une macro....)

Bon courage

Bonsoir,

Autre solution, en B6

=CNUM(GAUCHE(A6;NBCAR(A6)-1))

Et pour éviter tout message d'erreur (cellules vides en colonne A) :

=SIERREUR(SUPPRESPACE(SUBSTITUE(A6;CAR(160);""))*1;"")

Bonjour,

une procédure VBA pour supprimer l'espace en lieu et place.

Cdlt.

Public Sub DEMO()
Dim lRows As Long, i As Long, r As Long
Dim tbl()
    Application.ScreenUpdating = False
    lRows = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim tbl(1 To lRows - 5)
    r = 1
    For i = 6 To lRows
        If Len(Cells(i, 1)) > 0 Then tbl(r) = Replace(Cells(i, 1).Text, Chr(160), "")
        r = r + 1
    Next i
    [A6].Resize(UBound(tbl)) = Application.Transpose(tbl)
    Erase tbl
End Sub

Re-,

Quitte à faire une macro....

Columns(1).Replace Chr(160), "", xlPart

Bonne soirée

Edit, plus court..