Code astucieux pour un String [Résolu]

[deubelte]

Je chercher a récupérer les charactères qui se trouve après le deuxième $ d'un string du type $J$33. Dans cet exemple, cela donnerait 33.
Avez vous une idée astucieuse qui permet de faire cela, sans recourir aux boucles, ou aux trucs bourrains.
Merci

[ouskel'n'or]

Oui, si c'est une adresse, tu fais

Code :

No = Range("$J$33").row

Si c'est pour avoir autre chose, tu dis

[dadavyvy]

Tu devrais pouvoir trouver ton bonheur avec Instr ou InstrRev...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
texte="11$J$33$aaa"
i = InStr(1, texte, "$", vbTextCompare)
If i > 0 Then
    i = InStr(i + 1, texte, "$", vbTextCompare)
    If i >0 Then
        MsgBox Right(texte, Len(texte) - i) ' Affiche : 33$aaa
    Else
        ' $ n'a pas été trouvé une seconde fois
    End If
Else
    ' $ n'a pas été trouvé
End If

[ouskel'n'or]

Hello dadavyvy, y'a pas plus simple ?

Code :

1
2
3
4
5
6
7
8
Dim Texte, LeTableau()
texte="11$J$33$aaa"
LeTableau = Split(Texte,"$")
 
'Relecture
For i = 0 to Ubound(LeTableau)
     msgbox LeTableau(i)
Next

A+

[dadavyvy]

Oui si deubelte veut récupérer le texte entre le 2e $ et le 3e $, mais pas pour tous les caractères après le 2e $...
Mais y'a surement plus simple que ce que j'ai donné...
Ensuite, si son texte correspond a une address(True, True), ton 1er code est encore plus rapide...

[ouskel'n'or]

Non, j'ai testé et j'ai tout mais on doit déclarer

Code :

Dim Tableau

et non

Dim Tableau()

Je mé trompé