Discussion :

[Dédé6621]

Bonjour à toutes et à tous,

Lors de l'exécution du code, j'ai le message d'erreur suivant: "Erreur de compilation: Impossible d'affecter à un tableau" lié à la définition d'un tableau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Base 1

Sub Test()
        
        Dim AgceL(1 To 6) As Variant     'ligne de l'agence dans la feuille 1
        Dim AgceC(1 To 6) As Variant     'colonne de l'agence dans la feuille 2
        
        AgceL = Array(8, 13, 18, 23, 33, 38)
        AgceC = Array(6, 7, 8, 9, 10, 11)

End Sub

Je sèche...

Est-ce que ça saute aux yeux de quelqu'un-e?

[Jean-Philippe André]

Salut,

je n'avais jamais pense utiliser un tableau precisant les bornes + Variant...

la version suivante fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
 
        Dim AgceL As Variant     'ligne de l'agence dans la feuille 1
        Dim AgceC As Variant 'colonne de l'agence dans la feuille 2
 
         AgceL = Array(8, 13, 18, 23, 33, 38)
         AgceC = Array(6, 7, 8, 9, 10, 11)
 
End Sub

[Dédé6621]

Merci beaucoup jpcheck!!!

je n'avais jamais pense utiliser un tableau precisant les bornes + Variant...

Je découvre les tableaux en VBA et je pensais devoir déclarer la variable en tant que tel alors que la fonction Array le fait pour moi si je comprends bien.

[Jean-Philippe André]

A toute fin utile, un peu de lecture :

http://silkyroad.developpez.com/vba/tableaux/

[Dédé6621]

Merci pour ce lien. À vrai dire, je l'avais consulté, mais peut-être un peu trop en diagonale

En revanche, après une lecture plus assidue (même si certainement encore imparfaite), j'ai encore une question sur la déclaration.

Voici le lien vers la nouvelle discussion:
http://www.developpez.net/forums/d15...h-non-definie/

Cordialement

[wilfryjules]

Attention aussi aux déclarations de variables en série, j'ai eu la même erreur:

Marche:

Code :

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

1
2
3
4
 
Dim k, i, j, m, n As Integer
Dim aLieux() As Integer
Dim aMonths() As Integer

Ne marche pas et déclenche l'erreur à la compilation:

Code :

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

1
2
 
Dim k, i, j, m, n, aLieux(), aMonths() As Integer

Ainsi plus loin si j'appelle la fonction getLieux me renvoyant un tableau d'entiers, cela plante à la compilation :

Code :

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

1
2
 
aLieux = getLieux()