Suppression espace indésirable sous excel? [Résolu]

;-)

Sub SupprEspaces()
Dim L, C
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
    For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column
        Cells(L, cl).Value = Trim(Cells(L, C).Value)
        Next
    Next
End Sub

;-)

Bonsoir,

ceci peut etre resolu sans macro; selectionner la colonne puis faire CTRL H taper un espace dans la case rechercher et faite entrer... le tour est joué

BY

Merci pour vos explications...

Pour faire plus simple j'ai recodé votre code ; vous pouvez le télécharger sur mon blog !

http://bout2code.com/non-classe/2008/08/supprimer-les-espaces-en-trop-sur-excel/

Bonjour,

J'ai pris le code suivant sur le site mais il me laisse un espace

Sub Etoile()

For Each Item In Selection
Item.Value = "*" & Item.Offset(0, 0) & "*"
Item.Value = UCase(Item.Value)
Item.Value = Application.Trim(Item.Value)
Next
End Sub


Il y'a également une macro permettant l'insertion d'étoiles de chaque côté du champ mais le problème réside simplement dans le fait que celà me laisse un espace et celà ne viens pas de ma macro étoile ...

Help s'il vous plait

Alexandre