13GIBE59
XLDnaute Accro
Bonjour le forum.
Dans le fichier joint, je souhaite supprimer en vba les deux espaces qui se trouvent devant le code de la colonne B.
Mon code ne supprime qu'un espace...:
Et la réitération de la macro ne donne rien, il reste toujours un espace de trop...
J'ai essayé :
Sans succès, j'ai essayé de doubler :Range("B" & X) = Replace(Range("B" & X), Chr(160), "")
là aussi, chou blanc.
Quelqu'un a-t'il une idée ?
Merci d'avance.
Dans le fichier joint, je souhaite supprimer en vba les deux espaces qui se trouvent devant le code de la colonne B.
Mon code ne supprime qu'un espace...:
Sub supprespaces()
Dim X As Long
For X = 2 To Range("B65536").End(xlUp).Row
Range("B" & X) = Replace(Range("B" & X), Chr(160), "")
Next X
End Sub
Et la réitération de la macro ne donne rien, il reste toujours un espace de trop...
J'ai essayé :
Code:
Range("B" & X) = Replace(Range("B" & X), Chr(160) & Chr(160), "")
Sans succès, j'ai essayé de doubler :Range("B" & X) = Replace(Range("B" & X), Chr(160), "")
là aussi, chou blanc.
Quelqu'un a-t'il une idée ?
Merci d'avance.