Discussion :

[bassiste]

Salut
j'ai cette erreur lorsque j'exécute mon appli "Erreur d'exécution '9'. Indice.."

Le débogage me renvoie sur les lignes en gras du module.

Module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Sub calcul_distance2(ByVal ville_depart As String, ByVal ville_cible As String, ByRef nb_villes_int As Integer, ByRef tab_ville_int1() As Integer, ByRef tab_ville_int2() As Integer)

'On affecte les numéros de villes à partir des noms
Dim num_ville_depart As Integer
Dim num_ville_cible As Integer

'Variables parcourant les villes
Dim k As Integer
Dim m As Integer
'Position des tableaux
Dim p As Integer

p = 1

    'Boucle de k : première ville intermédiaire
    For k = 1 To nb_villes_effectifs
        'Boucle de m : deuxième ville intermédiaire
        For m = 1 To nb_villes_effectifs
            'Si les connections avec k sont VRAI, alors k est une ville intermédiaire
            If Connections(num_ville_depart, k) = True And Connections(k, num_ville_cible) = True Then
                nb_villes_int = 1
                tab_ville_int1(p) = k
                tab_ville_int2(p) = 0
                p = p + 1
            'Si les connections avec k et m sont VRAI alors k et m sont les villes intermédiaires
            ElseIf Connections(num_ville_depart, k) = True And Connections(k, m) = True And Connections(m, num_ville_cible) = True Then
               nb_villes_int = 2
               tab_ville_int1(p) = k
               tab_ville_int2(p) = m
               p = p + 1
            End If
        Next m
    Next k

Form:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim tab_ville_int1() As Integer
Dim tab_ville_int2() As Integer
Dim i As Integer
 
Call calcul_distance2(villedepart, villedestination, nb_villes_int, tab_ville_int1(), tab_ville_int2())
 
'Nb villes intermédiaires
lbl_nbvillesint.caption = nb_villes_int
 
For i = 1 To nb_villes_effectifs
   If tab_ville_int1(i) <> 0 Then
      lst_villes_int1.AddItem (tab_ville_int1(i))
      lst_villes_int2.AddItem (tab_ville_int2(i))
   End If
Next i

[ProgElecT]

A aucun endroit du code tu ne dimensionnes tes variables tableaux
regardes à quoi correspond ses 2 mots redim et/ou redim preserve

[ucfoutu]

Bonjour (et un salut à Progelect) :
Ce que te dit progelect t'a déjà été dit dans l'autre discussion que tu as ouverte ...
As-tu ouvert, comme je te le demandais, ton aide en ligne ?

[bassiste]

Mais c'est quoi l'aide en ligne C'est pas les tutos?

J'ai redim mes tableaux j'ai plus cette erreur