Re : Supprimer des espaces dans une serie de cellules
Re,
Pour compléter la panoplie, si tes données sont en colonne et qu'il n'existe pas de blanc à l'intérieur de tes références, il existe aussi une méthode avec Données/Convertir...
Re : Supprimer des espaces dans une serie de cellules
bonsoir le forum, icoulon ftho, spitnolan08
spit, tu as repondu plus vite que moi mais pour developper ta reponse (sans t'offenser), la fonction trim permet de supprimer les espaces au debut et en fin de chaine de caracteres.
si tu veux seulement supprimer les espaces en debut, tu mets LTRIM, par contre si tu veux supprimer les espaces en fin, tu mets RTRIM
voila icoulon, tu connais maintenant la fonction TRIM.
ps: desole samantha, je ne t'avais pas vu, bonjour
Re : Supprimer des espaces dans une serie de cellules
Re
Une solution "bourine"
Code:
Sub Macro1()
Dim Fin As Long
Range("B1").FormulaR1C1 = "=TRIM(RC[-1])"
Fin = [A65536].End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & Fin)
Range("B1:B" & [B65536].End(xlUp).Row).Value = Range("B1:B" & [B65536].End(xlUp).Row).Value
Columns("A:A").Delete
End Sub
Fonctionne si:
La feuille ne contient que des valeurs en colonne A et rien d'autre.
Re : Supprimer des espaces dans une serie de cellules
Une autre solution "bourin"
Code:
Sub test()
Dim i%
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Do While Left(Cells(i, 1), 1) = " "
Cells(i, 1) = Right(Cells(i, 1), Len(Cells(i, 1)) - 1)
Loop
Next
End Sub
Re : Supprimer des espaces dans une serie de cellules
Bonsoir,
J'ai essayé de mon coté, juste en chageant la formule de votre macro, et ça a l'air de fonctionner (j'ai fait l'hypothèse que tous les codes avaient une largeur de 9 caractères dans votre fichier):
Range("B1").FormulaR1C1 = "=RIGHT(RC[-1],9)"