[vbs] sortir d'une boucle suite à une erreur

Version imprimable

Bonjour à tous,

Celà va faire un moment que je n'ai pas programmé... J'utilise un simple script .vbs pour agir sur une application au travail afin d'automatiser certaines tâches.

Je suis actuellement bloqué, je lance une exécution sur l'application qui me retourne un résultat sous forme de lignes dans un interface graphique.
Je cherche à trouver le nombre de lignes que l'application me retourne, la solution que j'envisage et de parcourir chaque ligne jusqu'à ce que le script produits une erreur afin d'établir un compteur et de récupérer la valeur de celui-ci au moment de l'erreur.

Voici un exemple très simplifié qui représente bien la chose :
- j'aimerais réussir à sortir de la boucle for au moment de l'erreur et connaître le nombre d'indices de mon tableau.
Code:

1 2 3 4 5 6 Dim tableau(3) ' l'application m'a retourné 4 lignes For i = 0 to 19 ' je cherche à connaître le nombre de ligne MsgBox tableau(i) Next
J'ai essayé ça, mais ça n'a pas l'air de fonctionner et de toute façon je viens de me rendre compte que je passe dans le If à chaque erreur donc la variable Compteur n'aura pas la bonne valeur... :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim tableau(3) Dim compteur For i = 0 to 19 MsgBox tableau(i) On Error Resume Next If Err.Number <> 0 Then Compteur = i - 1 End If Next MsgBox ("il y a "& Compteur &" lignes")
Merci d'avance

Salut marcelo44, bienvenue sur DVP

Tu n'étais pas loin de la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim Msg
For i = 0 to 19
    On Error Resume Next
    MsgBox tableau(i)
    If Err.Number <> 0 Then
         Compteur = i - 1
         Msg = "Indice maxi = " & Cstr(Compteur)
         Exit For
    End If
Next
If Msg <> "" Then
    MsgBox Msg
End If

Par contre tu peux obtenir l'indice maxi avec Ubound()

Code:

MsgBox Ubound(tableau)

05/06/2018, 07h27
marcelo44

Salut,

Désolé je pensais avoir répondu...

Merci ça fonctionne parfaitement. Je ne peux pas utiliser Ubound car dans le cas réel je suis obligé de parcourir les lignes une par une jusqu'à provoquer une erreur (ligne absente) pour déterminer le nombre de réponses et par la suite remplir mon tableau.

Encore merci