Text1 = "Je veux separer cette phrase en deux" Dim Demi As Integer Demi = Len(Text1) / 2 MsgBox Left(Text1, Demi) 'partie 1 MsgBox Right(Text1, Demi) ' partie 2
Text1 = "Je veux separer cette phrase en deux" Dim Demi As Integer 'recherche le premier espace a partir de moitié Demi = InStr(Len(Text1) / 2, Text1, " ") MsgBox Left(Text1, Demi) 'partie 1 MsgBox Right(Text1, Len(Text1) - Demi) ' partie 2
For i = 0 To 33000 DoEvents List1.AddItem i Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question