Discussion :

[chamus]

Salut a tous

Sur un tableau excel, j'ai une colonne dont le contenu de chaque cellule est précédé selon la cellule d un espace et parfois de 2.
est il possible d effacer les espaces situés avant le commancement de l expression contenue dans chaque cellule
MAIS sans effacer les espaces a l interieur de l expression ?

[SfJ5Rpw8]

voir fonction LTrim ...

[chamus]

Ok

Code :

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

1
2
3
4
5
6
7
8
Sub Suprimespace()
Dim i As Integer
 
For i = 2 To 200
LTrim (Cells(i, 18))
Next i
 
End Sub

mais comment je specifie que mes cellules sont en string !

[SfJ5Rpw8]

Ok
...
mais comment je specifie que mes cellules sont en string !

..?

tu veux dire au format texte ..?

Code :

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

Cells(i, 18).NumberFormat = "@"

[chamus]

oui,

j essaie d effacer les espaces contenus au debut de chacune de mes cellules (qui contienneent du texte)

comme

Code :

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

1
2
3
4
5
Dim i As Integer
 
For i = 2 To 200
LTrim (Cells(i, 18))
Next i

ne marche pas
g essayé de dire a l trim que mes cellules contiennent du texte ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Suprimespace()
Dim i As Integer
Dim str As String
 
 
For i = 2 To 200
str = cells(i, 18).Value
 
LTrim (str)
Next i
 
End Sub

enfin bref je suis paumé !

[AlainTech]

Euh,

Code :

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

1
2
3
4
5
Dim i As Integer
 
For i = 2 To 200
Cells(i, 18) = LTrim (Cells(i, 18))
Next i

peut-être...

[chamus]

désolé....

sur ce,
Merci et bon Week end.