Discussion :

[liop49]

Bonjour

je reviens par rapport a mon post de ce matin pour supprimer les minuscules d'une cellule
J'ai maintenant un probleme car j'ai des espaces en fin de cellule et je voudrais les supprimer

est ce que quequ'un peut m'orienter?

merci

nini

[Daniel.C]

Bonjour,

Code :

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

ActiveCell.Value = Application.Trim(ActiveCell)

Mais ce n'est pas exactement ce que tu demandes. Ca supprimera aussi les espaces devant et remplacera les espaces multiples consécutifs à l'intérieur du texte par un seul espace (c'est la fonction Excel SUPPRESPACE).

Si ça ne convient pas :

Code :

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

1
2
3
4
5
6
For i = Len(ActiveCell.Value) To 1 Step -1
    If Mid(ActiveCell.Value, i, 1) <> " " Then
        ActiveCell.Value = Mid(ActiveCell.Value, 1, i)
        Exit For
    End If
Next i

[fring]

Bonjour,

Tu peux essayer avec RTrim --> http://silkyroad.developpez.com/VBA/...racteres/#LI-M

[liop49]

Bonjour,

Je reviens avec mon problème d'espace en fin de cellule.

J'ai mis le code suivant mais il ne fait rien ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro2()
 
Dim plage As Range
Dim Cel As Range
Set plage = Selection
 
 
For Each Cel In plage
    Cel.Value = Trim(Cel.Value)
 
 
' avec le code suivant à la place de celui du dessus, il m'efface toute la cellule et non uniquement l'espace en fin de ligne ????
'Cel.Value = Application.WorksheetFunction.Trim(Cell)
Next Cel
 
End Sub

PAr avance merci

Nini

[fring]

Bonjour,

Tu peux essayer avec RTrim --> http://silkyroad.developpez.com/VBA/...racteres/#LI-M

[liop49]

Avec Rtrim cela ne donne rien, la macro s'exécute et l'espace est toujours là

Voici le code utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
Dim plage As Range
Dim Cel As Range
Set plage = Selection
 
 
For Each Cel In plage
    Cel.Value = RTrim(Cel.Value)
    'Cel.Value = Application.WorksheetFunction.Trim(Cell)
Next Cel

[rvtoulon]

bonjour,
les réponses données ci-dessus résoud ton problème fait ce test:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim chaine As String, nb1 As Byte, nb2 As Byte
 
chaine = "Bonjour " 'ici bonjour avec un espace à la fin
 
nb1 = Len(chaine)
MsgBox nb1 'ici = 8 caractères"
 
chaine = Trim(chaine) 'ici j'enlève les espaces avant la chaine et après la chaine
 
nb2 = Len(chaine)
MsgBox nb2 'ici = 7 caractères, l'espace a été enlevé"
 
End Sub

ton problème doit venir d'ailleurs