Discussion :

[Betos]

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

[QuestVba]

Un truc du style :

Code :

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

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

[Betos]

Un truc du style :

Code :

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

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!

[Menhir]

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