Discussion :

[Chris@Xerox]

Bonjour,

J'ai le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ListFile1() As Object
 
Private Sub Button1_Click()
...
    ReDim ListFile1(1, 12)
... 
    Call UpdateList(1, ListFile1, 12) 
...
End Sub
 
Private Sub UpdateList(i As Integer, ByRef ListFile() As Object, LenArr As Integer)
...
End Sub

Et évidemment, j'ai une erreur:

Compile error:

Type mismatch: array or user-defined type expected

Quelqu'un pour me dire ce que je fais de travers svp?

Merci.

[mkl238]

un tableau passe d'office par référence, le ByRef est donc de trop

Note que ton code fonctionne chez moi...

[Chris@Xerox]

Salur mkl238,

Avec ou sans ByRef, j'ai le même message d'erreur.

Si le code fonctionne chez toi, cela veut sans doute dire qu'il est correcte. Mais pourquoi pas chez moi?

Je continue de chercher. Merci.

[User]

Salut,

Peux-tu détailler un peu ton code ?

Quels sont ces "objects" que tu copies dans ton tableau ?

[Chris@Xerox]

Salut User,

Je remplis mon tableau avec des String et des Integer.

Code :

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

1
2
3
4
    For j = 0 To 12
        ListFile1(0, j) = dbCompare.TableDefs("File1").Fields(j).Name
        ListFile1(1, j) = 0
    Next

Mon code n'est pas beaucoup plus fournis que ça car je suis au début de mon programme.

[User]

Re,

Tu as essayé avec :

Code :

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

Dim ListFile1()

ou

Code :

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

Dim ListFile1() as variant

Y compris dans l'argument ListFile de la procédure UpdateList.

A+

[Chris@Xerox]

Oui, j'avais déjà essayé avec Variant mais j'ai eu la même erreur.

Par contre, je viens d'essayer

Code :

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

1
2
3
Private Sub UpdateList(i As Integer, ByRef ListFile(), LenArr As Integer)
...
End Sub

Et ça fonctionne.

Je ne comprend pas pourquoi je ne dois pas préciser le type de mon tableau dans mon sub mais ça passe. J'ai laissé

Code :

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

Dim ListFile1() As Object

et ça marche aussi.

Un tout grand merci User.