Dim T as string, i as long, J as long T = Text1.Text j = 0 for i =1 to 4 j=j+2 j = instr(j,t,vbCrLf) if j = 0 then exit for next if j = o then msgbox "Il n'y a pas 5 ligne" Else j=j+2 msgbox "La 5eme ligne commence à l'indice " & j Endif
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question