Formule VBANombre de Caractere 1er Mot

Résolu

djca -
djca - 3 juin 2010 à 10:46

Bonjour,
et merci d'avance de l'aide que vous pourrez m'apporter
je veux écrire une macro dont le point de départ est le nombre de caractère du 1er mot de la phrase contenu dans la cellule
dans le classeur Excel
"paris sera toujours paris" en A1 --
formule en B1 =NBCAR(GAUCHE(A3;CHERCHE(" ";A3;1)-1))

je n'arrive pas à transposer cette formule dans ma macro // message d'erreur

Sub Nb()
Chaine = Range("A1")
NbCar1erMot = "=LEN(LEFT(Chaine,SEARCH("" "",Chaine,1)-1))"
Range("C3") = NbCar1erMot
End Sub

un grand merci d'avance

A voir également:

Formule VBANombre de Caractere 1er Mot
Caractère ascii - Guide
Formule si et - Guide
Trousseau mot de passe iphone - Guide
Caractère spéciaux - Guide
Caractere speciaux - Guide

3 réponses

Réponse 1 / 3

Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention 295

Sub traitechaine()
Dim Chaine As String
dim nbre1 as integer

Chaine = Range("A1") ' Paris ser toujours Paris

nbre1 = Len(Left(Chaine, InStr(1, Chaine, " ") - 1))

range("C3")=nbre1

End Sub

Réponse 2 / 3

chossette9 Messages postés 4239 Date d'inscription Statut Contributeur Dernière intervention 1 310

Bonjour,

voici l'écriture correcte de ta Macro :

Sub Nb()
Chaine = Range("A1")
NbCar1erMot = Len(Left(Chaine, WorksheetFunction.Search(" ", Chaine, 1) - 1))
Range("C3") = NbCar1erMot
End Sub

Cordialement.

Réponse 3 / 3

djca

Un grand merci

Votre réponse