Supperession d'espaces

R

renaud

Guest
Bonjour,


J aimerais savoir comment faire pour supprimer tous les espaces présents, à la suite d'un mot ou d'une valeur, dans les cellules de la colonnes J.


Merci beaucoup


Renaud
 
E

excalibur

Guest
essai =gauche(a1;5) si ta valeur & en a1 & toujours le meme nombre de caracteres ou Sub replace()
Dim patente As Range
[a1].Select
For Each patente In Selection
patente.replace What:=" ", Replacement:=""
Next
End Sub a+
 
A

andré

Guest
Resalut,

Si tus as "12345 ", c'est nécesairement un format texte.

Procédure :
Tape dans une cellule quelconque le chiffre 1 et copie cette cellule
Sélectionne la plage dont tu veux enlever les espaces et fais
Collage spécial multiplication.

Les espaces auront disparus.

Ândré.
 
G

galopin01

Guest
bonsoir,
il y a cet article la aussi :

Sub Test()
For Each o In Selection
o.Value = Trim(o.Value)
Next
End Sub

Trim enlève les espaces à gauche et à droite
Pour les espaces de droite seulement utiliser RTrim
Pour les espaces de gauchee seulement utiliser LTrim

Ok ?
 
R

renaud

Guest
C'est ce qu il me faut mait j ai beau selectionne les cellules concernées, cela ne marche que partiellement.

La fonction LTrim fonctionne, si j utilise Trim, seuls les espaces de gauches sont supprimés, et cela ne marche pas quand j utlise RTrim.

As tu fait des essais avec des espaces à droite?


renaud
 
J

jyM

Guest
salut Renaud, André Excalibur, Galopin01,

en formule de feuille,
il y a SUPPRESPACE et SUBSTITUE qui ont ou auraient cet usage.

piste complémentaire,
la plupart des espaces sont codés chr(32), MAIS d'autres chr(160).
Je me suis fait b... ien eu plusieurs fois.
après essais les fonctions de feuille ne traitent que chr(32).

salut à tous.

JyM
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 963
Messages
2 093 996
Membres
105 906
dernier inscrit
aifa