XL 2010 Suppression de caractère

[GHISLAIN]

bonjour le forum,


voila je récupéré dans un textbox un nom composé qui peut être constitué de plusieurs façons
soit :
Mr toto
Mdm toto
Mr B.TOTO
Mr Z.TOTO.x
Mr B.TOTO.x


lachaine = "Mr toto" ' valeur dans textbox1

TextBox2 = Split(lachaine, " ")(rang - 1)


me récupère bien le TOTO

comment faire pour les autres si il sont sélectionnés

Merci a tous de vos suggestions

Amicalement

Ghislain

 

[Paf]

Bonjour,

peut-être, s'il n'y a pas d'autres configurations de noms:

TP = Split(Split(TextBox1, " ")(1), ".")
If UBound(TP) > 0 Then
  TextBox2 = TP(1)
Else
  TextBox2 = Split(TextBox1, " ")(1)
End If

A+

 

[GHISLAIN]

Bonjour Paf

Ta proposition me convient parfaitement

et répond a mes attente s

Merci a toi , bonne journée

Amicalement

Ghislain