Mise en forme facile

Bonjour,

Je vous remets un petit fichier annexe, je souhaite mettre en forme les valeurs considérées comme du texte en valeurs numériques sous vba. En réalité, il faut supprimer l'espace des milliers pour que cela se transforme en valeur numérique. Le Ctrl+F remplacer fonctionne bien mais je voudrais automatiser. Merci au sauveur.

+++++

Bonjour obouana,

Utilise ce code :

Sub espace()
Dim cel As Range, i As Long
    Application.ScreenUpdating = False
    i = 2
    For Each cel In [A2:A300]
        If cel.Value <> "" Then Cells(i, 2) = Replace(cel.Value, " ", "") * 1
        i = i + 1
    Next cel
End Sub

Bonjour,

Bonjour, vba-new

Essaie ce code :

Sub convert()
With Range("A2:A" & [A65000].End(xlUp).Row)
    .TextToColumns Destination:=Range("A2"), ThousandsSeparator:=Chr(160)
    .Replace ".", ".", LookAt:=xlPart
End With
End Sub

Bon W-E