recherche dans un string

Bonjour,

j'ai une chaine du type :

Code:

---

aaaaaa}bbbbbbb}ccccccc}dddddddd}eeeeeee}ffffffff

---

et je cherche à récupérer le dernier ensemble de ma chaine (ffffff).

Pour cela il me faudrait savoir ou se trouve le dernier "}". Mais avec instr je n'y arrive pas car les longueurs des sous-chaines entre les "}" varie de 0 à N.

Pouvez-vous m'aider ?

Bonjour,

Un exemple à adapter :

Code:

---

1 2 3 4 5 6 7 8 9

Sub essai() Dim myString, pos As Integer   myString = "aaaaaa}bbbbbbb}ccccccc}dddddddd}eeeeeee}ffffffff" pos = InStrRev(myString, "}") myString = Mid(myString, pos + 1) MsgBox myString End Sub

---

Edit : en simplifiant :

Code:

---

MsgBox Mid$(MyString, InStrRev(MyString, "}") + 1)

---

Utilise Split :f1:
Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim tablo As Variant, Phrase As String, mot As String Phrase = "aaaaaa}bbbbbbb}ccccccc}dddddddd}eeeeeee}ffffffff"   'En détaillant le code tablo = Split(Phrase, "}") MsgBox tablo(UBound(tablo))   ' ou en simplifiant mot = Split(Phrase, "}")(UBound(Split(Phrase, "}"))) MsgBox mot End Sub

---

Bon après-midi

InstrRev, je n'avais pas vue qu'il existait !

Merci !