Formule VBANombre de Caractere 1er Mot Résolu/Fermé

Question

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

Bidouilleu_R · Answer

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

chossette9 · Answer

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.

djca · Answer

Un grand merci

Formule VBANombre de Caractere 1er Mot

3 réponses

Discussions similaires