Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

[maval]

Bonjour,

J'aimerai supprimé l'espace qui se trouve devant une chaine de caractère dans la colonne "D" à partir de la 6éme ligne j'ai se code mais sa ne fonctionne pas?

Sub Supprime_Espaces()
 
Dim i As Long

For i = 6 To 12000
   Range("D" & i).Value = LTrim(Range("D" & i).Value)
Next i
 End Sub

Merci de votre aide

Cordialement

Maval

 

[Pierrot93]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Bonjour,

peut être nous fournir un tout petit extrait des données que l'on puisse tester... Sinon peut être essayer de passer par la conversion de données...

bonne journée
@+

 

[david84]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Bonjour, salut Pierrot,
LTrim ne remplace pas tous les types d'espaces situés à gauche.
Tu dois donc rechercher quel est exactement le caractère Ascii. En fonction de cela, tu pourras trouver la solution adaptée (utilisation de la WorkSheetFunction Trim, d'un replace, etc...).
A+

 

[Dull]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Salut Max 🙂, le Forum

ton code devrais marcher à priori avec ses "espaces normaux" si cela ne fonctionne pas essaye avec les espaces insécables

Édition/Remplacer, Premier champ Alt 0160 et remplacer tout par rien

ou avec les 2

Sub test() ' By Staple1600
Application.ScreenUpdating = False
Dim C As Range
For Each C In Columns("D:D").SpecialCells(xlCellTypeConstants, 23)
C.Value = Replace(C.Text, Chr(32), vbNullString)
C.Value = Replace(C.Text, Chr(160), vbNullString)
Next
Application.ScreenUpdating = True
End Sub

EDITION: Salut Pierrot 🙂, David 🙂 Hachement à la bourre moi mais content de vous croiser🙂

Bonne Journée

 

[maval]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Bonjour Pierrot

Voici mon exemple

@+

Maval

 

[maval]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Bonjour Dull,

J'ai un message d'erreur "400"

@+

Max

 

[Pierrot93]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Re, bonjour David🙂, Dull🙂

"LTrim" fonctionne chez moi dans le fichier que tu as fourni.....

 

[Dull]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Re le Fil

Pareil que pour Pierrot🙂 avec LTRIM ça Fonctionne

essaye cela

Sub Supprime_Espaces()

Dim C As Range, i As Long, DerLig As Long
Application.ScreenUpdating = False
DerLig = Range("C" & Rows.Count).End(xlUp).Row
For i = DerLig To 6 Step -1
For Each C In Range("C" & i).SpecialCells(xlCellTypeConstants, 23)
C.Value = Replace(C.Text, Chr(32), vbNullString)
C.Value = Replace(C.Text, Chr(160), vbNullString)
Next C
Next i
Application.ScreenUpdating = True
End Sub

Bonne Journée

 

[maval]

Re : Supprimer l'espace qui se trouve devant une chaine de caractère avec "LTrim"

Re,

Merci Dull Nickel

Bonne journée

@+
Max