private Sub Test()
Dim ar() As String
Dim j As Integer, Taille As Integer
Dim Pos As Integer
Const Chaine1 As String = "ceci n 'est qu'un test aa/0005/D09"
Const Chaine2 As String = "ceci b/a12/750/ccc n'est pas un test"
Const Chaine3 As String = "ceci n 'est pas officiel DR/23"
ar = Split(Chaine2, " " )
Taille = UBound(ar())
For j = 0 To Taille
Pos = InStr(ar(j), "/" )
If Pos > 0 Then Debug.Print ar(j)
Next
end sub
|