Discussion :

[maestro1303]

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à

[fring]

Bonjour,

Une des solutions possibles

Code :

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

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

[AlainTech]

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

Code :

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

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