Suppression espace

[niwiz]

bonjour, voila j'aimerais enlever les espaces de ma chaine de caractères. cependant je n'y arrive pas, j'ai beau essayer Trim , replace mais sa n’enlève jamais les espaces.
Le but et de ne plus avoir d'espace quand je copie/colle la première ligne avec les liens.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As String
If Target.Column = 2 Then
a = Target.Value
Target.Value = Trim(a)
End If
End Sub

Merci d'avance pr l'aide

 

[kjin]

Re : Suppression espace

bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub
Target = Replace(Target, Chr(160), "")
Target = Trim(Target)
End Sub

A+
kjin

 

[Modeste]

Re : Suppression espace

Bonjour niwiz,

Dans ta colonne A tu as un CAR(160) avant l'espace! Tu peux essayer:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Target = Trim(Application.Substitute(Target.Offset(0, -1).Value, Chr(160), ""))
End If
End Sub

Oups! Salut kjin 🙂

 

[niwiz]

Re : Suppression espace

j'en étais pas loin ^^ Merci beaucoup les gars !!