Bonjour à tous !
J'ai fait plusieurs recherches déjà sur la suppression des espaces dans une cellule, mais je ne comprends pas pourquoi ça ne fonctionne pas chez moi..
En gros j'ai des cellules qui contiennent 2 espaces à la fin d'une chaine de caractères, et j'aurais besoin de les supprimer.
J'ai essayé :
Code :
- Range("A3" ).Replace What:=" ", Replacement:=""
|
Code :
- For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)
- cel.Value = RTrim(cel.Value)
- Next cel
|
Code :
- Range("A3" ).Value = Replace(Range("A3" ).Value, " ", "" )
|
Sauf que ça ne me supprime jamais les espaces à la fin de ma cellule... j'ai plein de cellules, et j'ai essayé sur une seule (A3) pour sortir des boucles et travailler plus simplement mais là je ne vois absolument pas pourquoi cela ne marche pas...
Le tout premier code ci-dessus me supprime un des 2 espaces, mais j'ai beau relancer plusieurs fois les macros, il me reste systématiquement un ou deux espaces...
J'ai même essayé de faire avec un replace 2 espaces par "" mais toujours rien...
Ceci ne fonctionne pas non plus, il ne rentre même pas dans le while...
Code :
- For Ind1 = 2 To nbRows
- While Right(Cells(Ind1, 1), 1) = " " 'tant que le dernier caractère est un espace
- Len1 = Len(Cells(Ind1, 1)) - 1 'retirer 1 à la longueur de la chaine de caractères
- Cells(Ind1, 1) = Left(Cells(Ind1, 1), Len1) 'tronquer la chaine d'un caractère
- MsgBox Cells(Ind1, 1).Value + "&"
- Wend
- Next
|
En gros j'ai l'impression qu'il ne reconnait pas les espaces dans mes cellules comme des espaces...
Je suis bloquée là, je ne vois pas...
Help please