Supprimer les espace insécables avec VBA

Version imprimable

07/12/2018, 14h26
Betos

Supprimer les espace insécables avec VBA

Bonjour à tous,

Pouvez vous m'aider à supprimer les espace insécables du fichier en PJ ?

il est depuis une BD il est impossible de le sortir propre il y a de code à 8, 12 ou plus chiffres, il est indispensable que ces espace soient supprimer et aussi les chiffre dans les codes qui commencent par zéro "0" doivent rester intactes. ex.04434510

Je vous remercie si vous avec un code VBA qui pourras me faciliter la tacher car ce problème est quotidien
Lien du fichier: https://www.cjoint.com/c/HLhlbTenYed

https://www.cjoint.com/c/HLhlbTenYed

Un truc du style :

Code:

1
2
3
4
5
    For Each cell In Selection
            cell.NumberFormat = "@"
            cell.Value = Replace(cell, Chr(160), "")
            cell.Value = Replace(cell, " ", "")
    Next

07/12/2018, 16h26
Menhir

Méthode Replace appliquée à la propriété UsedRange de la feuille.
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Citation:

Envoyé par QuestVba

Un truc du style :

Code:

1
2
3
4
5
    For Each cell In Selection
            cell.NumberFormat = "@"
            cell.Value = Replace(cell, Chr(160), "")
            cell.Value = Replace(cell, " ", "")
    Next

Merci bcp

c'est parfait, c'ets ce que je recherché

Bon weekend!