Discussion :

[zandru]

Bonjour,

j'ai une chaine du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[aalex_38]

Bonjour,

Un exemple à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Utilise Split
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zandru]

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

Merci !