Nombre de Caracteres de chaque mot

Bonjour,

Dim lgMot As Integer
Dim mot As String

mot = "Dupont"

lgMot = len(mot)

MsgBox lgMot   'Affiche 6

;o)

Salut,

Inutile d'ouvrir plusieurs discussions sur le même sujet

http://www.commentcamarche.net/forum/affich-17254801-nombre-de-caracteres-de-chaque-mot

bonjour peux t on connaitre le nombre de lettre de chaque mot
je recherche à savoir le nombre de lettre du 1er mot
"dupont antoine adresse telephone" étant les 4 mots dans la cellule A1
nombre total de lettres et d'espace 32 - 4 mots
=NBCAR(A1) réponse 32 caractères
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))+1 réponse 4 mots
cdt

Bonjour

Function longPremierMot(ByVal chaine As String) As Integer
Dim mTab()

mTab = Split(chaine)

LongPremierMot = len(mTab(0))

End Function

Tu utilises ça comme une fonction Excel

=LongPremierMot(A1)

;o)