C'est quoi la fonction ?
C'est quoi la fonction ?
quelle est la fonction qui permet de déterminer le nombre de dimension d'un tableau
exemple :
Doit printer 2
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)
j'ai pas trouvé mais on peu en construire une :Envoyé par Bruno75
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
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager