Taille des tableaux et Ubound

**Cris++** · 30/05/2007, 21h56

La fonction Ubound rend la taille d'un tableau mais lorsque celui-ci est vide, la fonction rend une erreur. Je voudrais pourtant utiliser une fonction pour tester la taille de mes tableaux dynamiques, et ce quelque soit leur type de données associé, en particulier pour des tableaux de types différents, définis par l'utilisateur.

Une alternative à Ubound que j'ai trouvée est 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public type1
...
End type1
...
...
Public typeN
...
End typeN


Dim table1() As type1
...
Dim tableN() As typeN


Public Function Bound(... table As ...) As Integer
    Dim IsArrayEmpty As Boolean
    On Error Resume Next
    Err.Clear
    table = UBound(table)
    IsArrayEmpty = (Err.Number = 9)
    Err.Clear
    If IsArrayEmpty = True Then
        Bound = 0
    Else
        Bound = table
End Function

Mon problème est que je n'arrive pas à bien déclarer le paramètre de la fonction, sachant que je veux que ma fonction fonctionne pour tous mes tableaux table1(),...tableN() quelque soit son type ! Mes différents essais avec Array, ou autre rendent une erreur ! Merci de votre aide !

**ouskel'n'or** · 30/05/2007, 22h25

Dans la sub appelante, tu déclares le type de la variable Table, dimensionnée ou non, ça dépend de ta façon de la remplir.
Dans la fonction tu mets... rien du tout

Code :

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

Public Function Bound(table) As Integer

Table est déjà déclarée.
Mets Option Explicit avant ton code, tu t'apercevras qu'il ne manque aucune déclaration

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option explicit
 
Sub TailleDuTableau()
Dim LeTableau
LeTableau = Array("un", "deux", "trois", "quatre", "cinq", "six")
MsgBox Bound(LeTableau)
End Sub
 
Function Bound(Tableau) As Integer
Bound = UBound(Tableau)
End Function

A+

NB - la dimension du tableau commence à 0

**Cris++** · 30/05/2007, 22h58

Merci pour cette réponse.
En fait, mes types de données sont définis par l'utilisateur. Quand je déclare sas rien, sans As et sans ByRef ou ByVal, j'obtiens une erreur de la forme :

"Erreur de compilation:

Seuls les types définis par l'utilisateur et qui sont définis dans les modules d'objets publics peuvent être convertis depuis ou vers un variant, ou passés à des fonctions à liaison tardive."

Et je ne comprend pas pourquoi ça ne compile pas.