fonction "cherche" dans une macro

[erwan]

prénom et nom nombre de caractères du prénom
laurent dupont =CHERCHE(" ";A4;1)-1 le résultat est 7 (OK)

dans une feuille Excel (voir ci-dessus) , je cherche à connaître le nombre de caractère du prénom jusque là pas de problème maintenant je voudrais créer la même formule dans une macro. C' est à dire Vprenom=nombre de caractères du prénom (la ligne vprenom=search(" ";a4;1)-1 ne fonctionne pas)

La fonction search n'existe pas telle quelle.
Existe-t-il une autre possibilitées ????

Merci de votre aide
Erwan

 

[myDearFriend!]

Re : fonction "cherche" dans une macro

BONSOIR Erwan, le Forum,

Tu peux essayer comme ça :

[SIZE=2][COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]Dim[/COLOR] NomPrenom [COLOR=blue]As String[/COLOR]
      NomPrenom = Range("A4").Text
      [COLOR=green]'Pour obtenir la longeur du prénom[/COLOR]
      MsgBox InStr(1, NomPrenom, " ") - 1
      [COLOR=green]'Pour obtenir le prénom[/COLOR]
      MsgBox Left(NomPrenom, InStr(1, NomPrenom, " ") - 1)
      [COLOR=green]'Pour obtenir le nom[/COLOR]
      MsgBox Right(NomPrenom, Len(NomPrenom) - InStr(1, NomPrenom, " "))
      [COLOR=green]'OU plus simplement[/COLOR]
      MsgBox Mid(NomPrenom, InStr(1, NomPrenom, " ") + 1)
[COLOR=blue]End Sub[/COLOR][/SIZE]

Cordialement,

 

[erwan]

Re : fonction "cherche" dans une macro

Bonjour Didier,

c'est exactement ce que je cherchais , merci beaucoup.

Ewan