Discussion :

[Bruno75]

C'est quoi la fonction ?

[Bruno75]

quelle est la fonction qui permet de déterminer le nombre de dimension d'un tableau

exemple :

Code :

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

1
2
3
4
5
 
Dim a() as string
 
redim a(1 to 1, 2 to 4)
Debug.Print NombreDeDimension(a)

Doit printer 2

[SfJ5Rpw8]

quelle est la fonction qui permet de déterminer le nombre de dimension d'un tableau

exemple :

Code :

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

1
2
3
4
5
 
Dim a() as string
 
redim a(1 to 1, 2 to 4)
Debug.Print NombreDeDimension(a)

Doit printer 2

j'ai pas trouvé mais on peu en construire une :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function NombreDeDimension(tb) As Integer
 Dim i As Integer
 i = 1
 On Error GoTo Fin
  While UBound(tb, i) = UBound(tb, i)
    i = i + 1
  Wend
Fin:
 NombreDeDimension= i - 1
End Function

[DarkVader]

Possible également avec les API

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
Private Declare Sub CopyMemory Lib "Kernel32.dll" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function VarPtr Lib "msvbvm60.dll" (aPtr() As Any) As Long
 
Private Type SAFEARRAY
    cDims As Integer
    fFeatures As Integer
    cbElements As Long
    cLocks As Long
    pvData As Long
End Type
 
 
Public Function DimCount(arrayVar()) As Long
    Dim ptrVar As Long, ptrInf As Long, infArray As SAFEARRAY
    ptrVar = VarPtr(arrayVar())
    CopyMemory ptrInf, ByVal ptrVar, Len(ptrInf)
    CopyMemory infArray, ByVal ptrInf, Len(infArray)
 
    DimCount = infArray.cDims
End Function