Dim index as Long Dim sTexte as string Let sTexte = "10 - Muguet 10/05/2010" Let index = InStr(1, sTexte, "-") let sTexte = Left(sTexte, index - 1) MsgBox sTexte
Dim Separation as variant Separation = split("10 - Muguet 10/05/2010"," - ",,vbTextCompare) msgbox Separation(0)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLet sTexte = "10 - Muguet 10/05/2010"alors que la première ligne change par la suite. Donc, je dois inscrire :
Dim index as Long Dim sTexte as string Let sTexte = 1 Let index = InStr(1, sTexte, "-") let sTexte = Left(sTexte, index - 1) MsgBox sTexte