OVH Cloud OVH Cloud

Quelle différence - traitement chaîne de carctères

3 réponses
Avatar
Tip.tiptop
Bonjour,
Lorsque j'exécute la ligne ci-dessous, j'obtient comme résultat du TRIM la
suppression des espaces en début de chaînes et en fin de chaîne.
Aucune action est faite sur les espaces entre les mots.
PrénomComplet = Trim(ActiveCell)

Alors que lorsque je demande l'éxécution de la ligne ci-dessous mon TRIM est
en fait
un SUPPRESPACE
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])

Ma question:
Comment écrire et faire pour que le SUPPRESPACE s'éxécute directement sur ma
variable PrénomComplet?

3 réponses

Avatar
Daniel.j
Bonjour
Utilise cela pour supprimer TOUS les espaces
Cells.Replace " ", "", xlPart
Daniel

--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm

"Tip.tiptop" a écrit dans le message de news:
epkhjf$mmv$
Bonjour,
Lorsque j'exécute la ligne ci-dessous, j'obtient comme résultat du TRIM la
suppression des espaces en début de chaînes et en fin de chaîne.
Aucune action est faite sur les espaces entre les mots.
PrénomComplet = Trim(ActiveCell)

Alors que lorsque je demande l'éxécution de la ligne ci-dessous mon TRIM
est en fait
un SUPPRESPACE
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])

Ma question:
Comment écrire et faire pour que le SUPPRESPACE s'éxécute directement sur
ma variable PrénomComplet?



Avatar
JB
Bonjour,


PrénomComplet = Application.Trim(ActiveCell)

Utilise la fonction SupprEspace() du tableur

PrénomComplet =Trim(ActiveCell)

est une fonction du VBA

JB


On 29 jan, 11:17, "Tip.tiptop" wrote:
Bonjour,
Lorsque j'exécute la ligne ci-dessous, j'obtient comme résultat du TR IM la
suppression des espaces en début de chaînes et en fin de chaîne.
Aucune action est faite sur les espaces entre les mots.
PrénomComplet = Trim(ActiveCell)

Alors que lorsque je demande l'éxécution de la ligne ci-dessous mon T RIM est
en fait
un SUPPRESPACE
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])

Ma question:
Comment écrire et faire pour que le SUPPRESPACE s'éxécute directeme nt sur ma
variable PrénomComplet?


Avatar
Modeste
Bonsour® Tip.tiptop avec ferveur ;o))) vous nous disiez :

Aucune action est faite sur les espaces entre les mots.
PrénomComplet = Trim(ActiveCell)
voir réponse du 29/01 à 01:19



Alors que lorsque je demande l'éxécution de la ligne ci-dessous mon TRIM est
en fait
un SUPPRESPACE
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])


Attention la fonction de feuille de calcul SUPPRESPACE
(Application.WorkSheetFunction.Trim)
ne supprime pas les espaces intérieurs mais les réduit à un seul.
pour supprimer tout les espaces il faut utiliser la formule =SUBSTITUE(A1;"
";"")
ou alors en VBA Application.Substitute([A1]," ","")


--
--
@+
;o)))