XL 2013 connaitre le type de variable tableau un ou 2 dim et le sens

'B - nombre à virgule flottante de 8 octets (IEEE), transféré par valeur, type C double.

'C - Chaîne terminée par zéro (null) (longueur max. = 255 caractères), transférée par référence, type C char *

'F - Chaîne terminée par zéro (null) (longueur max. = 255 caractères), transférée par référence (modifier sur place) , Type C char *

'J - entier signé de 4 octets de large, transféré par valeur, type C long int

'P - structure de données OPER d'Excel, transféré par référence, type C OPER *

'Api SetWindowLongA application de modification sur fenetre
' ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & dwNewLong & ")")

#If VBA7 Then
  Private Declare PtrSafe Sub memcpy Lib "kernel32" Alias "RtlMoveMemory" (ByRef dest As Any, ByVal src As LongPtr, ByVal Size As LongPtr)
#Else
  Private Declare Sub memcpy Lib "kernel32.dll" (ByRef dest As Any, ByRef src As Any, ByVal Size As Long)
#End If

Public Function GetDimensions(source As Variant) As Integer
' Nota
'    VT_ARRAY = &H2000 ' Tableau 1 Dimension
'    VT_BYREF = &H4000  ' Tableau 2 Dimensions et 3D, 4D , et Plus...
Dim vt As Long, ptr As LongPtr
    memcpy vt, VarPtr(source), 2                             ' read the variant type (2 bytes)                     '
        If (vt And &H2000) = 0 Then Exit Function            ' return 0 if not an array                            '
            memcpy ptr, VarPtr(source) + 8, Len(ptr)         ' read the variant data at offset 8                   '
        If (vt And &H4000) Then memcpy ptr, ptr, Len(ptr)    ' read by reference if the data is a reference        '
        If ptr Then memcpy GetDimensions, ptr, 2             ' read the number of dimensions at offset 0 (2 bytes) '
End Function

Sub Test()
    Dim t As Variant
 
    t = Array(1, 2, 3)
    MsgBox GetDimensions(t)
 
    t = [A1:A12].Value
    MsgBox GetDimensions(t)
 
    t = [A1:L1].Value
    MsgBox GetDimensions(t)

    t = [A1:L12].Value
    MsgBox GetDimensions(t)
End Sub

Sub test1()
t = [A1:A10].Value
ReDim tx(LBound(t) To UBound(t), 1)
i = LBound(t) - 1
For Each element In tx: i = i + 1: Next
MsgBox i / 2
End Sub
Sub test2()
t = [A1:j1].Value
ReDim tx(LBound(t) To UBound(t), 1)
i = LBound(t) - 1
For Each element In tx: i = i + 1: Next
MsgBox i / 2

End Sub
Sub test()
t = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
ReDim tx(LBound(t) To UBound(t), 1)
i = LBound(t) - 1
For Each element In tx: i = i + 1: Next
MsgBox i / 2

End Sub

Sub test1()
t = [A1:A10].Value
MsgBox GetTypeArray(t)
End Sub

Sub test2()
t = [A1:z1].Value
MsgBox GetTypeArray(t)
End Sub

Sub test()
t = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox GetTypeArray(t)
End Sub

Function GetTypeArray(t)
ReDim tx(LBound(t) To UBound(t), 1)
i = LBound(t) - 1
For Each element In tx: i = i + 1: Next
x = i / 2
GetTypeArray = Switch(x = 1, "ligne", x = UBound(t), "Colonne", x < UBound(t) Or x > 1, "array")
End Function