code en boucle

Bonjour,
Est il possible de faire tourner ce code 10 fois d'affiler
tout en changeant le nombre de course d'inscrit
EX premiere execution s= course 1 P =course 2
EX deuxieme execution s= course 2 P =course 3




S = InStr(1502, gg, "Course 6 :")
P = InStr(1620, gg, "Course 7 :")
If P = False Then P = InStr(i + 1, gg, "Réunion 2")
Form1.Text11.Text = Mid(gg, S, P - (S + 5))


If InStr(1, Form1.Text11.Text, (" 1,1 ")) Then MsgBox "bravo"
If (Exists(" 14 partants ") Or Exists(" 15 partants ") Or Exists(" 16 partants ") Or Exists(" 17 partants ") Or Exists(" 18 partants ") Or Exists(" 19 partants ") Or Exists(" 20 partants ")) _
   And _
   (Exists(" 1,6 ") Or Exists(" 1,5 ") Or Exists(" 1,4 ") Or Exists(" 1,3 ") Or Exists(" 1,2 ") Or Exists(" 1,1 ")) Then
  MsgBox "bravo"
  Beep
  End If

par avance merci.

ton code est là pour faire apparaitre des Msgbox...
tu veux faire tourner la chose en boucle, qu'elle  toutes ces MsgBox (et ces affreux Beep) ?


quelle est cette fonction Exists ?
  Exists(" 1,1 ")


Pour ta boucle, une simple boucle For suffit:

For i = 1 to 10
   ...
Next i

Salut,

Dim i As Long

For i=1 to 10 Step 2
S = InStr(1502, gg, "Course " & i & " :")
P = InStr(1620, gg, "Course " & i+1 & " :")
If P = False Then P = InStr(i + 1, gg, "Réunion 2")
Form1.Text11.Text = Mid(gg, S, P - (S + 5))


If InStr(1, Form1.Text11.Text, (" 1,1 ")) Then MsgBox "bravo"
If (Exists(" 14 partants ") Or Exists(" 15 partants ") Or Exists(" 16 partants ") Or Exists(" 17 partants ") Or Exists(" 18 partants ") Or Exists(" 19 partants ") Or Exists(" 20 partants ")) _
   And _
   (Exists(" 1,6 ") Or Exists(" 1,5 ") Or Exists(" 1,4 ") Or Exists(" 1,3 ") Or Exists(" 1,2 ") Or Exists(" 1,1 ")) Then
  MsgBox "bravo"
  Beep
  End If
Next i

A+

Oups... Poste croisé

salut,

comme tu peux le voir je ne suis pas le seul lecteur marty14....
expose clairement le sujet et met le code intégrale concernant le problème

renfield -> exists n'est qu'un allégé de instr, juste pour simplifier la lecture et comprendre le OR et AND :
http://www.vbfrance.com/forum/sujet-CODE-MARCHE-PAS_1331745.aspx

---

Bonjour tout le monde et Merciiiii énormément pour votre aide.
Je vous explique mon projet avec mon code clairement :

1 - acceder a la page
WebBrowser1.Navigate ("http://www.pmu.fr/pmu/servlet/pmu.web.servlet.www.infos.ListeToutesCotes?dd=29062009")

2 - scanner toutes les courses existante sur cette page et les afficher dans un textBox

For i = 1 To 10 Step 2 S = InStr(1, gg, "Réunion 1") S = InStr(S, gg, "Course " & i & " :") If S Then Beep P = InStr(S + 1, gg, "Course " & i + 1 & " :") If P = False Then P = InStr(i + 1, gg, "Réunion 2") Text11.Text = Mid(gg, S, P - (S + 5)) End If If InStr(1, Text11.Text, (" 1,1 ")) Then MsgBox "bravo" If (Exists(" 14 partants ") Or Exists(" 15 partants ") Or Exists(" 16 partants ") Or Exists(" 17 partants ") Or Exists(" 18 partants ") Or Exists(" 19 partants ") Or Exists(" 20 partants ")) _ And _ (Exists(" 1,6 ") Or Exists(" 1,5 ") Or Exists(" 1,4 ") Or Exists(" 1,3 ") Or Exists(" 1,2 ") Or Exists(" 1,1 ")) Then MsgBox "bravo" Beep End If Next i

Pour le moment les actions BEEP ET MSGBOX sont volontaire en attendant de veritable action, j'ai testé le code que vous m'avez fournis mais il ne fonctionne pas, il m'affiche tous le contenus de la page web dans mon textbox.
S = InStr(1502, gg, "Course " & i & " :") P = InStr(1620, gg, "Course " & i+1 & " :")

alors que normalement c'est course par course, S = InStr(1502, gg, "Course 1") et P = InStr(1620, gg, "Course 2") fonctionne trés bien mais j'ai besoin d'exectuter mon code 10 fois tout en changeant le numero des course automatiquement.
Pour peaufiner j'aimerais utiliser un progressbar en fonction du nombre d'execution de ce code .
Voila et merci encors

parse la page HTML, pas le texte
les balises sont propres, avec des DIV ID numérotées

çà sera bien plus simple que de jouer comme tu tentes de le faire

exemple d'équivoque possible : il y a deux fois "réunion 4" sur ta page

clair qu'il vaux bien mieux manipuler l'HTML (une RegExp et zou!)

possible surement de jouer directmenent avec le DOM pour analyser la page.

Proxy au boulot, j'ai pas accès au HTML, je peux pas etre plus précis, donc ^^

J'utilise le meme code mais avec une source html cette fois ci! c'est ca ? A l'okasion pouvez vous me donner un petit exemple accompagné d'un progressbar svp ?

colle ici le code HTML, je te fais une regexp et zou