Extraction de chaîne

Bonjour à tous,

d'une variable string S, je voudrais extraire une sous chaîne SC commençant toujours par "MRTX" suivie d'un nombre(entre 1 et 9) . Mais si S ne contient pas la sous chaine MRTX, je voudrais avoir une extraction vide.


Exemple
si S= Forme_aMRTX5x25An alors SC=MRTX5
si S=Forme_aMTX5x25An alors SC=""

Voilà

Bonjour,

Une des solutions possibles

Code:

---

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

Sub test() Dim S As String, SC As String, i As Byte   S = "Forme_aMRTX5x25An"   For i = 1 To Len(S) If Mid(S, i, 4) = "MRTX" Then SC = Mid(S, i, 5) Exit For End If Next   MsgBox SC   End Sub

---

Une autre, sans boucle, basée sur celle de fring (salut :coucou:):

Code:

---

1 2 3 4

i = InStr(1, S, "MRTX") If i > 0 Then SC = Mid(S, i, 5) End If

---