Bonjour,

Set P = Range("E") 

J'ai donc supprimé la ligne

Set P = Range("E")

et je travaille directement avec E, c'est à dire que j'ai remplacé P par E partout (d'ailleurs je ne rends compte que dans les lignes de code il ne faut pas lire R mais P)

le message d'erreur est alors le suivant : "constante requise" en me surlignant le second n dans :

Dim M(n - 1, n - 1)

Quand je sélectionne une ou plusieurs plages de cellules en argumant de ma fonction, est-ce qu'elle le comprend ? Mon argument est bien un objet de type Range ? parce que j'ai essayé un truc tout simple :

Function Test(Z)

Test = Z.Areas.Count

End Function

et çà marche pas ...

Je définis n comme constante mais je lui affecte une valeur avant de l'utiliser donc normalement çà ne devrait pas poser de problème ...

j'ai modifié un peu mon code, voici la nouvelle version. A mon avis je crois qu'il y a un pb avec la plage de données en argument, son traitement ...

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

n = 0

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)

If cl = 1 Then
For i = 0 To n - 1
X(i - 1, 0) = E(i - 1, 0)
Next i
ElseIf lg = 1 Then
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

En fait çà peut etre un ensemble de plages du type A1:C1;G1:J1 donc il peut y avoir plusieurs areas

pour lg et cl, c'est une erreur de ma part, il faut remplacer le paragraphe par

For i = 0 To n - 1
X(i - 1, 0) = E(0, i - 1)
Next i

Remplace :

Debug.Print z.Rows.Count

Par :

MsgBox z.Rows.Count

Hiihaaaaaaaaaaaaaa

enfin quelque chose qui marche !!!!!!!!!!!

il m'affiche bien 1 comme résultat donc tu as raison un ensemble de plage = 1 plage

J'ai fait quelques tests de rows et columns.count
et je me rends compte que lorsque je prends un ensemble de plage, il considère la plage qui recouvre tout.
En gros si je choisis
Range("B2:C3", "E5:F5")
il comprend
Range("B2:F5")

Il faudrait une liste de range en argument dont la taille n'est pas définie

Je ne vois pas du tout comment faire pour avoir en argument d'une fonction un ensemble de plage.

Dans la fonction SOMME par ex, je peux mettre en argument tout un ensemble de cellules contigues ou non et çà marche. Je voudrais faire la même chose ...

Tu met un bouton sur ta feuille, tu double-click dessus et tu arrives sur l'editeur vba.

Private Sub CommandButton1_Click()

Debug.Print flNomDeTaFonction(ActiveSheet.Range("B2:C2"),ActiveSheet.Range("E5:C5")
  
End Sub

Function flNomDeTaFonction(Dim oPlg1 As Range, Dim oPlg2 As Range) As Long

Dim lRes As Long

'ici tu mets ta petite bidouille de calcul avec oPlg1 et oPlg2 (noublie pas : ce sont des ranges)
'avec lRes qui stocke le resultat


fNomDeTaFonction = lRes
End Function

Ok c'est cool
mais comment je peux faire si je veux un nombre n de range, avec n non défini ?????????
that is the question ...

J'ai peut-etre trouvé une solution à mon pb avec :

Public Function Test(ParamArray Rng() As Variant) As Long
Dim I As Integer, CellCount As Integer

For I = 0 To UBound(Rng)
CellCount = CellCount + Rng(I).Cells.Count
Next

Test = CellCount
End Function

ce qui permet d'avoir un ensemble de plages en argument.

Par contre j'ai un autre problème et oui ....

cette fois par rapport à du calcul matriciel.

J'ai défini
le vecteur X(n-1) et la matrice M(n-1,n-1)
et je voudrais calculer tX*M*X avec tX représentant "transposé de X".
J'ai marqué :
Transpose(X) * M * X
mais çà ne marche pas

çà indique
"erreur de compilation : sub ou function non définie" en surlignant la fonction "transpose" dans le code

J'ai fait quelques modifs dans le programme et voici le résultat :

Sub Notation()

Dim min As Integer, max As Integer
Dim PE(1), EE(0), SE(1)
Dim PA(0), EA(1), SA(1)
Dim i As Integer

Worksheets("Feuil1").Activate

min = 2
max = 9

EE(0) = "B"
PE(0) = "C"
PE(1) = "d"
SE(0) = "E"

SA(0) = "f"
EA(0) = "g"
PA(0) = "h"
EA(1) = "i"

SE(1) = "j"
SA(1) = "j"

For i = min To max
If Cells(i, "a") = "Eau" Then
Cells(i, "k").Value = Note(i, PE())
Cells(i, "l").Value = Note(i, EE())
Cells(i, "m").Value = Note(i, SE())
ElseIf Cells(i, "a") = "Ass" Then
Cells(i, "k").Value = Note(i, PA())
Cells(i, "l").Value = Note(i, EA())
Cells(i, "m").Value = Note(i, SA())
Next

End Sub
______________________________________________________

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

Dim i As Integer, j As Integer, n As Integer
Dim alpha, pi
Dim A, Am

'calcul du nombre de cellules
n = UBound(Rng) + 1

'calcul de l'angle
pi = 4 * Atn(1)
alpha = 2 * pi / n

Debug.Print n

'définition de ma matrice M
Dim M()
ReDim M(n - 1, n - 1)

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

M(n - 1, 0) = 1

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

'definition du vecteur X
Dim X()
ReDim X(n - 1, 0)

For i = 0 To n - 1
X(i, 0) = ActiveSheet.Cells(lg, Rng(i).Value)
Next

'création de la tranposé de X
Dim TX()
Call Tvect(X, TX)

'quelques petits calculs
Dim p1(), p2()

Call PMAT(M(), X(), p1())
Call PMAT(TX(), p1(), p2())

A = 1 / 2 * Sin(alpha) * p2(0, 0)
Am = 1 / 2 * Sin(alpha) * 100 ^ 2 * n

Note = A / Am

End Function
__________________________________________________
Sub PMAT(A(), B(), C())

Dim i As Integer, j As Integer, k As Integer
Dim n As Integer, M As Integer, p As Integer

n = UBound(A, 2)
M = UBound(A, 1)
p = UBound(B, 2)

ReDim C(M, p)

For i = 0 To M
For j = 0 To p
For k = 0 To n
C(i, j) = C(i, j) + A(i, k) * B(k, j)
Next
Next
Next

End Sub
__________________________________
Sub Tvect(X(), TX())

Dim i As Integer, n As Integer

n = UBound(X, 1)

ReDim TX(0, n)

For i = 0 To n
TX(0, i) = X(i, 0)
Next

End Sub


Quand je le lance, le message d'erreur est le suivant :
"variable ou précédure attendue et non un module"
et la première occurence de "note" est surlignée dans la procédure notation

perso je ne vois pas trop où çà coince ....

Bonjour,

Essaye ceci :

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

Ouais en fait j'avais appelé un module Note, d'où la confusion ..