[VBA EXCEL] besoin d'aide pour une macro

Const cN = 10


Sub test()

Dim aTab(cN - 1, cN)

Debug.Print UBound(aTab())

End Sub

Function Note(P)
' P correspond à une plage de cellules

Dim n As Integer
Dim an
Dim A, Am
Dim i As Integer, j As Integer
Dim E As Range

E = P.Select 'est ce bien utile ?

n = 0

'je ne vois pas pourquoi tu fais une boucle ici
' si P est une plage tu n'auras qu'un Area
For i = 1 To E.Areas.Count
  n = n + E.Areas(i).Columns.Count
Next i

an = 2 * Pi / n

'définition de ma matrice et de mon vecteur
Dim M(n - 1, n - 1)
Dim X(n - 1, 0) ' tu devrais le définir comme ceci : Dim X(n - 1)

If cl = 1 Then  'comment est initialisé cl ?
  For i = 0 To n - 1
    X(i - 1, 0) = E(i - 1, 0)  
  Next i
ElseIf lg = 1 Then 'comment est initialisé lg ?
  For i = 0 To n - 1
    X(i - 1, 0) = E(0, i - 1)
  Next i
End If

For i = 0 To n - 1
  For j = 0 To n - 1
    M(i, j) = 0
  Next j
Next i

M(n - 1, 0) = 1
For i = 0 To n - 2
  M(i, i + 1) = 1
Next i

'quelques petits calculs
A = 1 / 2 * Sin(an) * Transpose(X) * M * X
Am = 1 / 2 * Sin(an) * 100 ^ 2 * n
Note = A / Am

End Function

Debug.Print E.Areas.Count

Debug.Print z.Rows.Count

Private Sub CommandButton1_Click()

Debug.Print flNomDeTaFonction(Union(ActiveSheet.Range("B2:C3"), ActiveSheet.Range("E5:F5")))

End Sub

Function flNomDeTaFonction(oPlg As Range) As Long

Dim lRes As Long

Debug.Print oPlg.Areas(1).AddressLocal
Debug.Print oPlg.Areas(2).AddressLocal

'ici tu mets ta petite bidouille de calcul avec oPlg.Areas(1) et oPlg.Areas(2)  (noublie pas : ce sont des ranges)
'avec lRes qui stocke le resultat


flNomDeTaFonction = lRes
End Function

Function Note(lg As Integer, Rng() As Variant) As Long