Discussion :

[M.a.n.u.]

Bonjour,

j'ai commencé à lire l'article de silkyroad (http://silkyroad.developpez.com/vba/tableaux/) à propos des tableaux en vba et tout en le parcourant je fais mes petites expérimentations ... donc je tentais de créer un tableau à 2 dimensions et j'affecte des valeurs tout bêtement et j'obtiens le message d'error 9 Subscript out of range.

L'erreur ce trouve être le "For", pourriez vous m'aider ? de plus le débugger n'aime pas trop.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Sub Multi()
    Dim i As Integer, j As Integer
    Dim tabl(0 To 5, 0 To 2) 

    i = 0
    j = 0

    tabl(i, j) = "call1"
    i = i + 1
    tabl(i, j) = "call2"
    i = i + 1
    tabl(i, j) = "Call3"
    i = i + 1
    tabl(i, j) = "Call4"
    i = i + 1
    tabl(i, j) = "Call5"
    i = i + 1
    tabl(i, j) = "Call6"
    
    j = j + 1
    i = 0
    
    Randomize
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    
    j = j + 1
    i = 0
    
    Randomize
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    i = i + 1
    tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
    
    For i = 0 To UBound(tabl, 5)
        For j = 0 To UBound(tabl, 2)
            MsgBox tabl(i, j)
        Next j
    Next i

End Sub

Merci d'avance

[M.a.n.u.]

J'ai finalement trouvé mon erreur, en fait que j'ai suivi le tutorial de silkyroad pour la partie boucle for avec l'option UBount et je ne sais pas pourquoi dans mon excel 2003 EN, cela ne fonctionnait pas donc je l'ai modifié :

Code :

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

1
2
3
4
5
For i = 0 To 5
        For j = 0 To 2
            MsgBox tabl(i, j)
        Next j
    Next i

A présent, ça fonctionne.

[Didier Gonard]

Bonjour,

Non tu n'as pas solutionné ton problème, tu l'as détourné, ce qui est un pis allé car il reviendra de façon plus importante dans l'avenir.

Étudie le syntaxe de la fonction Ubound, notamment au niveau du paramètres des dimensions

cordialement,

Didier