OVH Cloud OVH Cloud

nombre de caractères en VBA

2 réponses
Avatar
bernard
Bonjour =E0 tous,
voici mon probl=E8me:
comment supprimer les espaces apr=E8s la dermi=E8re lettre=20
valide d'un texte?=20
en effet dans une cellule se trouve un nom import=E9 d'un=20
autre logiciel.lorsque je demande =E0 excel de compter le=20
nombre de caract=E8res du nom, il me r=E9pond invariablement=20
15. Exemple
j'ai DUPONT en A1 ; en B1 =3D nbcar(A1)
reponse =3D15 . si je supprime les espaces pris en compte=20
apr=E8s le "T"en A1, la r=E9ponse en B1 est 6.

2 réponses

Avatar
Ellimac
Bonjour,

En formule :
=NBCAR(SUPPRESPACE(A1))
En macro :
n = Len(Trim(Range("a1")))

Camille
-----Message d'origine-----
Bonjour à tous,
voici mon problème:
comment supprimer les espaces après la dermière lettre
valide d'un texte?
en effet dans une cellule se trouve un nom importé d'un
autre logiciel.lorsque je demande à excel de compter le
nombre de caractères du nom, il me répond invariablement
15. Exemple
j'ai DUPONT en A1 ; en B1 = nbcar(A1)
reponse  . si je supprime les espaces pris en compte
après le "T"en A1, la réponse en B1 est 6.


.



Avatar
garnote
Salut Bernard,

Une suggestion :

Sub Supprime_Espaces()
'Supprime les espaces du
'début et de la fin de
'chaque phrase d'une sélection
For Each phrase In Selection
phrase.Value = Trim(phrase)
Next
End Sub

Serge


"bernard" a écrit dans le message de news:
076501c3708c$1eaa1060$
Bonjour à tous,
voici mon problème:
comment supprimer les espaces après la dermière lettre
valide d'un texte?
en effet dans une cellule se trouve un nom importé d'un
autre logiciel.lorsque je demande à excel de compter le
nombre de caractères du nom, il me répond invariablement
15. Exemple
j'ai DUPONT en A1 ; en B1 = nbcar(A1)
reponse  . si je supprime les espaces pris en compte
après le "T"en A1, la réponse en B1 est 6.