Discussion :

[marcelo44]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut marcelo44, bienvenue sur DVP

Tu n'étais pas loin de la solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Ubound(tableau)

[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